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ABSTRACT 


TEL PARA A OTR somes 
L Logic 1S TESTED 

is ae Beem icy HANDLE TN i re burt & TROLLER MODE 

1S NOT TESTED BY THIS PROGRAM. 


gl PORTS OF THE RPOY ARE CABLED TO THE SAME MASSBUS BY 
A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT ALLOWS THE DUAL 
CONTROLLER LOGIC TO BE TESTED FROM ONE PDP-11/RH70. 


R Loci Test. ORLY THE CONTROL LOGIE RESOCTRTED WITH 
OPTION EQelt ST HE CONTROL LOGIC ASSOCIATED WITH 
THE UNLOAD ONTROLLER SELECT’ SWITCH IS TEST 

BY THIS PROGRAM. 


REQUIREMENTS 


RPO4 press CONTROLLER TEST 
PART 1 (MAINDEC-11-DERPS) 
PART @ (MAINDEC-11-DERPT) 


B. RPO4Y FUNCTIONAL CONTROLLER TEST 
PART 1 (MAINDEC-11-DERPU) 
PART @ (MAINDEC-11-DERPV) 


( PROGRAMS MUST BE RUN TWICE: ONCE FROM EACH 
CONTROLLER (PORT). 


C. RPOY DUAL CONTROLLER LOGIC TEST 
PART 1 (MAINDEC-11-DERPP) 


OTHER PROGRAMS 


TESTED BY ‘as DRIVE EXERCISER (NAINDEC~11- 
DERPN-B). Harti BPON RCI NST BE 

PROGRAM REVISION 'B’ OR LATER. REVISION 'A’ OF THE 

RPOY EXERCISER DOES NOT SUPPORT DUAL CONTROLLER OPERATION 





3. LOADING PROCEDURES 
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146 

147 THE PROGRAM MAY BE artis BY THE He APPA PAPER TAPE 
148 LOADER _OR IT MAY BE LOADED yo THE APPROPIATE MEDIA 
149 USING THE ASSOCIATED ’XXDP’ 







150 
151 

152 

153 4, STARTING PROCEDURES 

155 

158 4,1 STARTING ADDRESSES 

158 a. ARTING ADDRESS OF THE PROGRAM IS LOCATION 

159 ge NORMAL SE AT THIS 8 SS ALLOW ALL OWS THE OPERATOR 

ie SELECT (OR RESELECT) pon THE RPO4 TO 

162 

1 B. THE I AT (8). THE PROGRAM 

ee TELS ERE at EN 

165 C. THE PROGRAM CAN BE STARTED AT LOCATION 210(8) TO ALLOW 

167 , THE RH70 ADDRESS TO BE CHANGED. 

169 - 42 UNIBUS & VECTOR ADDRESSES 

174 2 PROGRAM ASSURES THE FOLLOWING. UNIBUS AND D VECTOR r 
173 ROR Sare. A THEE eTRRT are AT ANY FE OE TNE STARTING C LOCATIONS. 












MEMORY 
176 LOCATION CONTENTS FUNCTION 
178 
4 i he tw KEYBOARD STATUS REG 
181 tide 1p yees TTY PRI SPATUS RE 
ie Sn ee hl 
iB ee HT 
18S 1210 104 KW11-P VECTOR ADDRESS 
186 lele 177546 KW11i-L STATUS REGISTER 
iB 1s) Oe 00 KW1l-L_VECTOR ADDRESS 
153 i5e4 2 RH?D, INTERRUPT VECTOR ADDRESS 
182 4.3 OPERATOR ACTION 
f: PURSE eB SPAT TE OO EET S 
195 B. ie 
196 C. SWITCH : CT’ Sw TCH ON THE RPOH TO BE 
197 (ear TO ON. CY pave Ae 
198 D. TATE STARTING ADDRE (Bo0¢8) 210(8)) 
199 gNTe pet TCH REGISTER. 
200 E. S STAR 
201 - ENTER THE DRIVE NUMBER. (THIS MUST BE THE NUMBER 





ew me ee et et eee 
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g- RER AM C Ree STOPPED AT ANY THe AND RESTARTED 
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S.1 


5.2 


§.3 









FROM LOCATION 204. 


OPERATING PROCEDURES 


OPERATIONAL SWITCH SETTINGS 


WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE 
ALL ERRORS AND CONTINUE TESTING. 


THE SWITCH SETTINGS sat 


aio 
(]g=sl.. 
Teac eon 

Sa bee=t “CaO On 
TEST SELECTION 
INDIVIDUAL TESTS ARE SELECTED IN RESPONSE TO. THE "ENTER 
TEST NUMBER: ” MESSAGE. ANY VALID TEST NUMBER CAN BE 

MUST BE TERMINATED BY A CARRIAGE 

RETURN (CR). LOOP ON TEST SHITCH, SH<15>, MUST BE SET 
TO ALL CONTI EXECUTION OF THE THe SELECTED 
TO RUN ALL TESTS IN SEQUENCE, ENTER EITHER @ "0" FOLLOWED 
BY A CARRIAGE RETURN, OR A CARRIAGE RETURN BY ITSELF. THE PROG- 
RAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE UNTIL IT IS. HAL TED. 


CHARACTER ENTERED: SUCCESEIVE STUCKING AT THE RO KEY 
7 - CHARACTERS DELETED BY THE 
ENTERED BY THE OPERATOR: Sn Te CMPRACTERS 


THE OPERATOR CAN DELETE THE ENTIRE ENTRY BY TYPING A 
"CONTROL U’ (TU). 
CABLE CONNECTION 

WITH THIS PROGRAM, 
CIAL a CABLE IS 
kine i fe terreaet S MASSBUS A _& MASSBUS 
cers ss CONSTRUCTED SO 
IT 0 OF ine Te Srecr L 


NES IS COMPLENENTED. 


wT Te ee ae 








Se —_— 
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"UP’ BOARD - MODULE 7775S.) 
5s PORTS. CONE PORT WILL HAVE THE ADDRESS OF THE DRIVE; THE 








SSRIS GRCE SE URAL OR eos RR CIE al Total init ee : 


ated 


WWILIGWGIOIG 
ee ee on eo od 
WO NOUN We 


BS 


ULE 
thee ex 





OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE). 


ee ree 
ANY DEVICE ON THE SYSTEM (RPO4 


TITLE wr iceriae RPOY DUAL CONTROLLER LOGIC TEST - PART 2 


*COPYRIGHT ( 
me IT 'Eaulenent NTE 


HEPROGRAN BY C. HESS 


tSTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
;¥PACKAGE (MAINDEC-11-DZQAC-A2). 


+ 
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.SBTTL OPERATIONAL SWITCH SETTINGS 


8 


;# 

i* SWITCH 

;# 15 HAL 
;# 14 

3# 13 I 

3% ll I 

;* 10 BELL 
3% 9 L 


$ 


-SBTTL BASIC DEFINITIONS 


yi 


ey 
RRIFNLGAS 


mm 
Ee 
<< 
38 








£z9P 
gsnnes 
gaa 
$ 


Bes 


srt IA, ADDRESS OF THE STACK POINTER ### 1100 #%# 


3 BASIC 
: + PROCESSOR 


OR CALL 


DEFINE TION OF. SCOPE CALL 


STACK LIMIT REGISTER 
INTERRUPT REQUEST REGISTER 
SNITCH REGISTER 






OR NON-RPOY DEVIC” 





Co-uMTwnwr 


>> >> 
fat at at at at ot a 


TeCee eee 


o oS nene 
eEeeet ee 


PRIORITY LEVEL DEFINITIONS 


¥ 
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NITION 


i 


ee 





il te. RBeeIe OFF 


~t 
4 


DeRPOA 


: - 

a 8 

S a 

a 2 

Ses SAS f 
oe ec 
FUNK AUHM EN BKNAeEREeEEDE? THUAAMALEA SLBA Ue 
ie eee CELE CECE peeecct ttt primase 


Ei coeeser cee Eee sosseseedes: 


s SAAR SR RMED RAS ERE oe OS RANE ADR ae RARER ANSO SSN 


eee re a ne ee eed 
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BASIC DEFINITIONS 


Be 
£o 


000014 
000014 


cee 


000064 
000240 


= 

= 

= 

- 

re 
DOE 


8 


eeessess 


: 


PIROVEC=S40 


5 SEER AE SESE ESE SEES MEH ESE HEHEHE SESE HEE EE EEE REE EEE EEE EEE EERE EEE E EE 
-SBTTL RH11 REGISTERS 
5 BEAR SE ESERIES SESE SEE SESE SESE SE SEE SESE EEE EEE SEE AEE EEE EE EEE AEE REE EEE 


;WORD COUNT REGISTER (RHWC) 
sEACH BIT IS CALLED BY BIT NUMBER 


;BUS ADDRESS REGISTER (RHBA) 
;EACH BIT IS CALLED BY BIT NUMBER 


;CONTROL AND STATUS REGISTER 2 (RHCS2) 


USI= 
USe= 

s y 

= 10 

= 20 
CLR= 40 
IR= 100 
ree 
PGE= 100 

= 4000 
pes Sooo 
WCE= 40000 
DLT= 1 


AAA 
O-MWCUIONOW 


3 


VECTOR Ose ee 


it PeCERVED AND PICEGAL INSTRUCTIONS 


3501" BIT 
*TRACE TRAP 

tt BREAKPOINT TRAP (BPT) 

se gurut TRAP (I0T) **SCOPEX# 

S EMULATOR TRAP (EMT) **ERROR# 


;°TRAP™ T 
KEYBOARD VECTOR 

t TTY PRINTER VECTOR 

:!PROGRAM INTERRUPT REQUEST VECTOR 



























MD-11-DERPQ-A, RPOY DUAL CONTROLLER LOGIC TEST - PART 2 MACY11 27(732) OS-OCT-76 14:30 PAGE i3 | 
DERPQA.P11 RH11 REGISTERS 


434 ;DATA BUFFER REGISTER (RHDB) 

m3 SEACH BIT IS CALLED BY BIT NUMBER 

3 5 SESE EEE SERRE EEE ATES EHR 
at ~SBTTL RPOY REGISTERS 

44, 5 SSIES EEE ESE EEE EEE ESE EEE AE AAA SES HE 
wi ;CONTROL AND Stm7uS 1 REGISTER. (#00) 


450 Al7= 1000 
1 My tae ORT CT ¢ 
eB cite Ae 

454 040000 TRE= 40000 : TRANSFER ERROR (BIT 
2 100000 sc= 100000 SPECIAL CONDITION (eit 415) 
2 
459 ,DFS= DRIVE FORKARD S"/SEC. (BIT #0) 
460 oo0c0e bFFe0= 2 sDRIVE FORWARD 20"/SEC. (BIT #1) 
461 000004 DIGB= 4 ;ORIVE TO per GUARD BAND (BIT #2) 
462 000010 GRV= 10 ;G0 RE (BIT #3) 
463 000020 DL64= 20 ;DIFFERENCE LESS THAN 64 (BIT #4) 
464 000040 ls 40 ;DIFFERENCE EQUALS 1 (BIT #5) 
465 000100 = 100 ;VOLUME VALID (BIT #6) 
gs pone = 200 DRIVE READY (BIT #7) 
46 0004 = 400 ;DRIVE PRESENT (BIT #8) 

001000 PGM= 1000 ;PROGRAMABLE (BIT #9) 
469 002000 LSTt= 2000 ;LAST SECTOR TRANSFERRED (BIT #10) 
470 004000 = 4000 ;WRITE LOCK (BIT #11) 
47 010000 = 10000 ;MEDIUM ON-LINE (BIT #12) 
4 020000 PIP= 20000 sPOSITIONING OPERATION IN PROGRESS (BIT #13) 
473 040000 ERR= 40000 ;COMPOSIT ERROR. (BIT #14) 
474 100000 ATA= 100000 ;ATTENTION ACTIVE (BIT #15) 





476 sERROR REGISTER #01 (RHERI) (#02) 





00000 
pooo0 ; 

4g 09001 

Be oobe FER= 20 SFORMAT ERROR (BIT #4) 

483 O00040 wer= 40 ;WRITE CLOCK FAIL (BIT #5) 

4B4 000100 ECH= 100 ;ECC HARD ERROR (BIT #6) 
| 485 HCE 200 SHEADER COMPARE ERROR (BIT #7) 
| 486 HCRC= 400 ;HEADER CRC ERROR (BIT #8) 

487 001000 AOE= 1000 ;ADDRESS OVERFLOW ERROR (BIT #9) 
| 488 IRE= 2000 SINVALID ADDRESS ERROR (BIT #10) 
| 468 WLE= 4000 ;WRITE LOCK ERROR (BIT #11) 
| 








y 

481 
492 
493 
494 
495 
496 
497 
498 
499 







Gees 





MUIUTUN UU UU 





SERRE ese Soo es 
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rea 
040000 


1Cuue0 





a = 1y608 s DRIVE TIMING ERROR (BIT #12) 
PI= 00 ;OPERATION INCOMPLETE (BIT #13) 
UNS= 40000 ;DRIVE UNSAFE (BIT #14) 

= 100000 ;DATA CHECK ERROR (BIT 15) 
;MAINTAINABILITY REGISTER (RHMR) (#03) 
DMD= 1 ;DIAGINOSTIC MODE (BIT #0) 
MCLK= e@ ;MAINTAINABILITY CLOCK. (BIT #1) 
MINX= 4 ;MAINTAINABILITY INDEX (BIT #2) 
MSTCK= 10 ; AT RINIC TTY SECTOR CLOCK (BIT #3) 

= 0 ;MAINTAINABILITY READ (BIT #4) 
MWR= 40 ;MAINTAINABILITY WRITE (BIT #5) 
OTSY= 200 ;MAINTAINABILITY SYNC DETECTED (BIT #7) 
;ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 
ATO= 1 ;DEVICE O (BIT #0) 
ATl= e@ ;DEVICE 1 (BIT #1) 
ATe= 4 ;DEVICE 2 (BIT #2) 
AT3= 10 ;DEVICE 3 (BIT #3) 
AT4= 20 ;DEVICE 4 (BIT #4) 
ATS= 40 ;DEVICE S (BIT #5) 
ATE= 100 ;DEVICE & (BIT #6) 
AT7= 200 ;DEVICE 7 (BIT #7) 
;DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDA) (#05) 
;EACH BIT IS CALLED BY BIT NUMBER 
;DRIVE TYPE REGISTER (RHDT) (#06) 
;EACH BIT IS CALLED BY BIT NUMBER 
;LOOK-AHEAD REGISTER (RHLA) (#07) 
ExTli= 1 ;EXTENSION 1 (BIT #0) 
EXTe= 2 ;EXTENSION 2 (BIT #1) 
ExT4= 4 ;EXTENSION 3 (BIT #2) 
ExT10= 10 sEXTENSION 4 (BIT #3) 
ExTeO= 20 EXTENSION ? (eit #4) 
EXT40= 40 ;EXTENSION 6 (BIT #5) 
SCi= 100 ;SECTOR COUNT FIELD O (BIT #6) 
SCe= 209 ;SECTOR COUNT FIELD 1 (BIT #7) 
scu#= 400 ;SECTOR COUNT FIELD 2 (BIT #8) 
SCid= 1008 ;SECTOR COUNT TER 3 (BIT #9) 
SCef= e000 ;SECTOR COUNT FIELD 4 (BIT #10) 
TRKis ienoD ;TRACK FIELD 1 (BIT #11) 
TRKe= 1 ;TRACK FIELD e (BIT #le) 
TRKY= 20000 ;TRACK FIELD 3 (BIT #13) 
TRK10= 40000 ;TRACK FIELD 4 (BIT #14) 
TRKe0= 100000 ; TRACK FIELD S (BIT #15) 
;ERROR REGISTER #2 (RHER2) (#10) 
WCU= i ;WRITE CURRENT UNSAFE (BIT #0) 
CSF= ;CURRENT SINK FAILURE (BIT #1) 
WU= 4 ;WRITE SELECT UNSAFE (BIT #2) 
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DERPOA. Pil RPO REGISTERS 
cSus su NT SW AFE (8 
a ne Oran at (BIT 
53 pogn4e TOF= 40 erie ah FAILURE (BIT #5) 
zed eats fen: BD Fale anne 
FEN= ‘Tan SAF (BIT #7) 
eed pT ooo +n UAITE RE beAb e Ect (ert 49) 
225 heed NHS= 2000 *NO_HE CTION (BIT #10) 
eS4 04000 Ixt= 4000 INDEX (BIT 811) 
ess 030000 Vu30= 10000 :30VOLT UNSAFE (BIT #12) 
556 030000 PLUs 20000 :PLO UNSAFE (BIT #13) 
55 100000 acu 100000 "AC UNSAFE (BIT #15) 
554 SOFFSET REGISTER (RHOF) (#11) 
Sei 1 OF 25= SOFFSET 25 MICRO (BIT 80) 
ees Bppoas $i OFFSET EB MICRO INCHES (BIT #1) 
563 00004 OF100= 4 SOFFSET 109 MICRO (BIT 82) 
Seu 10 OF200= 10 LOFFSET 200 MICRO 5 (BIT #3) 
SES OF400= 20 SOFFSET 400 MICRO INCHES (BIT #4) 
a4 900040 OFB00= 40 SOFFSET 800 MICRO INCHES (BIT #5) 
567 00200 = 200 SOFFSET NEGATIVE (REVERSE) (BIT #5) 
cE8 002000 HCI= 2000 : INHIBIT (BIT #10) 
| Beg 04000 ECI= 4000 : CORRECTION CODE INHIBIT (BIT #11) 
| 5 010000 FMT22= 10000 ‘FORMAT BIT (BIT #12 
| 572 DESI INDER ADDRESS (RHCA) (#12) 
73 “EACH BIT IS CALLED BY BIT NUMBER. 
| 8s ;CURRENT CYLINDER GOORESS (RACE) (113) 
| BB wel siasqnedal ater! 
| 578 Gist aes (a14) 
579 + PACH rte 
| 58 sERROR REGISTER #03 (RHERS) (#15) 
| «3 900001 z ; sPACK SPEED UNSAFE (BIT #0) 
cay goonge 2 {VELOCITY (BIT 31) 
Eas 1 UWR= 10 ZANY UNSAFE EXCEPT READ/WRITE (BIT #3) 
4 00020 = 2 :DISK PRCK ROTATION ERROR (BIT #4) 
| eB easter hee iy Be OW CBIT sb) 
! 5 
| &g9 040000 SkI= °SEEK INCOMPLETE (BIT #14) 
_ ~‘B 100000 Gcvt= 100000 OFF CYLINDER (BIT #15) 
Be sECC POSITION REGISTER (RHEC1) (#16) 
SEACH BIT IS CALLED BY BIT NUMBER 
i §e5 sECC PATTERN REGISTER (RHEC2) (#17) 
| SEACH BIT IS CALLED BY BIT 
re sg SERRRELEERKLE RAAF RS SEL ESAS RESELERRESREFRARKELRSERRKASSSKRERRASRRAKELEARR 
600 LSBTTL DEFINITIONS OF THE RHL1/RPO4 ADDRESS INDEXES 





ND-11-DERPO-A 
DERPOA. P11 


BeNRRe oR | 


ee 


PKKMMMOm@wm 
0-2 02 02 02 fue Ps 0 Po ne B= 
OONWUI£WTH~ 


FRESH SRAM CEE he TOR es 


Se 


» RPOY 
DEFINI 


000042 


i 


000200 000137 CC1676 
000204 000137 X02ebe 


003218 900137 002430 
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IONS OF THE RH11/RPO4Y ADDRESS INDEXES 





ff RRRERERAE ESSERE LLESALLLAAALELLSLELLELLARELELAALLLELELERLERALELELLELE 


RHCS1=0 sCONT AND SLIMteR RST RD #1 (ORIVE REG. 00) 
RHWC=. T REGI A ORI Salve 
RHBA= ;UN AQORESS REG! GIs NOT ALD A Ive REG) 
Reesoel if DestReD GI TA TA ORE RES 
Rpeiate CONTROL AS Tals iSTER ae < a 
RHER1=14 + PRROR REGISTER 8 1 (DRIVE REG. 
RHAS= 1 ATTENTION SuRTARY PSEUDO REGIS a (DRIVE REG. 04) 
RHLA= *LOOK AHEAD REGI (DRIVE REG. 07) 
RHOB=22 :DATA BUFFER GISTER (NOT A DRIVE REG.) 
RHMR=24 *MAINTAINABILITY REGISTER (DRIVE REG. 03) 
RHO T=2b :DRIVE TYPE VPE REG (DRI REG. 06) 
; SERIAL GISTER (DRIVE REG. 10) 

RHOF =3¢ “OFFSET REGISTER (DRIVE REG. 11) 
RHCR=34 s DESIRED cy GI (DRIVE REG. 12) 
RHCC=36 °C YL GISTER (DRIVE REG. 13) 
RHER2=40 ERROR REGISTER #2 (DRIVE REG. 14) 
RHERS=42 “ERROR REGISTER #3 (DRIVE REG. 15) 
RHECI = ECC POSITION REGISTER (DRIVE REG. 16) 

C2=46 SECC PAT REGISTER (DRIVE REG. 17) 


-SBTTL TRAP CATCHER 


e6Lt, UNUSED LocaTONs Oe ER Tones BO eaters 
TRAPS AND INTERRUPTS 
Presi 0 CONTAINS 0 0 fo” CATCH IMPROPERLY LOADED VECTORS 


.SBTTL STARTING ADDRESS(ES) 
-2200 
IMP DESTAR JUMP TO STARTING ADDRESS OF PROGRAM 
s#STARTING ADDRESS IS LOCATION ood 


IMP EXEC » RESTART 
s#RESTART ADDRESS IS LOCATION 204 


JMP CHANGE ;CHANGE RH11 ADDRESS AND STAR 
;¥START AT LOCATION 210 TO CHANGE THE RH11 ADDRESS FROM 136700 





0S) 
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;;LOGICAL END OF PROGRAM 


002 
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STARTING ADDRESS(ES) 


HE PRO 
SENDAD 


-21100 


; REREEAAELEASLEAELRLLSLALSLARALALALL LE LS AAELLAESELLLLA ALAS S SELES 
IN 


-SBTTL COMMON TAGS 
3 #TH ; TABLE ge ae VARIOUS COMMON STORAGE LOCATIONS 
3# ° 


001100 


647 


ND-11-DERPO-A 
DERPQA.P11 


r 
i 
@ 
5 
s 


INSTRUCTION 
S 
TERS REQUIRED 
A “LINE FEED" 


eee 


eH OS CH eHeGe 
Se ee eeeaene 


Fy ee, 


ees 


200000 00-000000 outoo 


geepgeerreneeser peers 


e*eetese#8ee er ce ck | 


cE es 
See 


B8YBS SSN AANNGRRSSS FPS RG 


STotS ie Tt ee et A tengo a Od od et ee 
atatatatatetatatatatatatalatatatetatetetetetatet=} 








ae 
ee 


cP meee Ee 





2 
EAT? 4 


OF 


Seanee 
en poe 
east aa 4 meee 


4207) <377><377> 


200000 oBkReks | 
a ore 
ees _ eae 





geesie 


= 





seme, Sesser 


en hem ham hem ham han hee hen hem) 


S888888S8Sssssssss 


RA TR TERR TERT PeCMMAMSNCS Tie i ith Matas 


i es i 


“J 
~ 
o 


Ob — 0 = bb P= Ph Ba Pm Hp) He 


- =i = 
828 


SaSenes : 


jole 


*\ ale 
8888888e 


- 
Tou 


SRNR BoM eRe NS 


001262 
001264 
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CONMON TAGS 





176700 
000254 







PORTB: .WORD 0 ADDRESS 1B 

PORTC: ‘WORD 9 $ADDRESS, of FDIEPERENT DRIVE 

PTRaR: “HOED  O 6 NTAING THE PORT SS FOR ERROR TYPEOUTS 
pata “HORD 6 as ts RDORESS OF The HE SEIZING Eo ne 

SEEN: “HED 0 if hi aT fee 

CKERR: “WORD 0 un =1, A REGISTER MI CURED 

RELERA: “WORD TE rte THE poet IN *SELSPT? BID NOT RELERSE THE DRIVE 
Ware: ‘HOED tna TIE MER LOCATION 

TINEA: ‘WORD O ITHE TI ONE-SHOT VALUE MEASURED THROUGH PORT A 
TIMERP: “WORD SPORT, TIMEOUT VALUE 4. 25 

TIMER: WORD He TIMEOUT ONE SHOT VALUE MEASURED THROUGH PORT 8 
uae: as cnt Woe 


; iosstthsnendeeandandeaininiaimemnnetiatienedl 
~SBTTL RH11/RPO4 UNIBUS AND VECTOR ADDRESSES 
55 EAE AEA AE 996 SE SE ESE SE EE EEE SAE EE EEE 


: .WORD 176700 ;RH11/RPO4Y UNIBUS 


SRPADR: ADDRESS 
SRPVEC: .WORD 254 ;RH11 INTERRUPT VECTOR ADDRESS 








oe ee eee 


: 


B 
Es 


1 


8888 
RB GREX  JNSe 


55 8s Se Se 


Wout 
vt) 


66e3 
at at wets 
Ww 
rang 
io” 


SEER. S88 


RISRAB IAAT IN AISELPAT ORE SOT M SSSR SORASERMOREE ROS 
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RH11/RPO4 UNIBUS AND VECTOR ADDRESSES 






5 HEE EEE 9 9 AE A 

-SBTTL ERROR POINTER TABLE 

;*#THIS TABLE CONTAINS THE INFORMATION FOR EACH ce THAT CAN OCCUR. 
INFORMAT R_FOUND IN 


Soe 


S323 


2 
ggg © 





;#T ION IS OBTAINED BY USING T 
: LOCATION SITEMB. e ent NUMBER fee 


INDEX _NUMBE 
ICH _ITEM IN THE TABLE IS PERTINENT. 
IF SITEMB IS OT TI DATA_IS ($FRRPC). 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EX®LAINED AS FOLLOWS: 


ss SOINt? TO THE ERROR MESSAGE 
+S POIN TS % THE iS pe HEADER 
point uy 3 pate 
18 T TA FORMAT 


;DRIVE IS NON-EXISTENT (’NED’ BIT SET) 

;WRONG DRIVE TYPE 

;CONTROLLER SELECT SWITCH ON DRIVE NOT IN °A/B’ 
;DRIVE NOT ON LINE 


;SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME 
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Bats ;ATTENTION BIT SET ON *OPPOSITE PORT’ AFTER UNLOAD 
T14 
4 


at 
BS88 
=e 
piyiyen 


;ATTENTION BIT NOT SET ON PORT WHICH ISSUED ’UNLOAD’ 


786 901336 923603 EMG s TIMEOUT HAS NOT OCCURED WITHIN 2 SECONDS 
i 
: us ise tase Ib 
D0 1 bye 
cal sERROR 7 
793 O01346 023654 EM7 s TIMEOUT ONE-SHOT IS LESS THAN SOO MS 
7% 001350 026261 DH7 
795 001352 Gere 017 
7 001354 02764 
ce sERROR 10 
800 001356 3721 EM10 § ;READIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT 
801 O01 DH1 
ate 001362 027410 DT1 
ats 001364 G27624 FI 
Pt sERROR 11 
807 01 he 11 3’GO’ BIT RESET DURING UNLOAD COMMAND 
a0 001 1 DT1 
810 001 027624 OF 1 
HE sERROR 12 
gia oC 18 te fai? s INCORRECT STATUS DURING UNLOAD COMMAND 
Bie 001 1 Tl 
17 001404 027624 DF 1 
sERROR 13 
B21 001406 024122 emi3 ;DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND 
oo14ig 026326 OHI 
823 00141 67500 DT13 
001414 DF6 
sERROR 14 
pecan 
ae 
027410 
027624 
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ERROR POINTER TABLE 


;DRIVE LOCKED ON PORT ’A’ BY SWITCH WHILE CYCLED UP 


;DRIVE LOCKED ON PORT ’B’ BY SWITCH WHILE CYCLED UP 


;STATUS INCORRECT FOR PORT AFTER CYCLE UP 


;REGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON ’OPPOSITE’ PORT 


;NED’ SET WHEN RHDS1 ACCESSED THROUGH PORT NOT SWITCHED 


;DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/ 


;UNUSED ERROR MESSAGES 
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;UNUSED ERROR MESSAGES 


Q ;UNUSED ERROR MESSAGES 


4 0 § ;DRIVE NOT SEIZED BY PORT ’N’ 


EM31 ;WRONG STATUS SEEN BY THE SEIZING PORT 


EM32  ;REGISTER CONTENTS INCORRECT 


;CONTROL BUS PARITY ERROR WHILE READING REGISTER 


EM34 ;CAN’T ACCESS DRIVE THROUGH EITHER PORT 


M35 §_;DRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET 









PDR Sci kt ib tail PRR RRR RR AA saad Hobs ana : 


Stat=tatatat=t=t=t=) 
Setenecnees 


poe eee 
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RPO4 
ERROR POINTER TABL 
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O25535 EN36 ;DRIVE NOT IN NEUTRAL AFTER TIMEOUT, REQUEST NOT SET 
027600 DT35 
027647 DF7 
ERROR 37 
025622 EM37  ;REGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT 
027166 DH37 
027546 0730 
027663 OF 30 
ERROR 40 
925703 Em sDRIVE NOT SEIZED BY PORT AFTER RELEASE WIITH REQUEST SET 
027612 DT4O 
027647 
ERROR 41 
025760 EM41  ;REGISTER WRONG AFTER RELEASE WITH REQUEST SET 
026647 DH30 
027546 OT30 
27663 DF30 
START: 
012737 000340 177776 MOV #340, 38PS ;;LOCK OUT ALL INTERRUPTS 
12706 001100 MOV #SCNTAG, R& FIRST LOCATION TO BE CLEARED 
CLR (R6)+ 3:CLEAR MEMORY LOCATION 
001136 CMP 8STKS,R6 ; DONE? 
1374 BNE 6 LOOP BACK IF NO 
12706 001100 MOV #STACK, SP >:SETUP THE STACK POINTER 
01 1 po0020 MOV SIOTVEC >: TOT VECTOR FOR SCOPE ROUTINE 
01 MOV aelOTVecte ;;LEVEL 
01 140 MOV #SERROR, @ C’3;EMT VECTOR FOR ERROR ROUTINE 
01 ogb3H0 MOV 8340, JBEMTVEC+e ;; 
Ole? 37 021 000034 HOV STRAP QE TRAPVEC Jit EAP VECTOR FOR TRAP CALLS 
1 nye ies MOV SPype SCOPCT + SETUP END-OF-PROGRAM COUNTER 
001170 CLR STINES INIT AL IZE OF ITERATIONS 
001172 CLR SCAPE as ON ERROR ADDRESS 
il 1 001115 MOVB #1, SERMAX ALLOW ONE ERROR PER TEST 
12737 002014 001106 MOV #. ,SLPADR >: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
1 N02022 001110 MOV #.,SLPERR > SETUP LOOP ADDRESS 
RESET CLEAR 
i 022014 START1: TYPE TITLE * TYPE 
012737 002032 HOV ANOP START i DISABLE TITLE TYPEQUT AFTER INITIAL START 
j 02211 —_ 1S: TYPE ENTERA t ENTER Barve NOBRESS 
Pees? 01216 ROOT gps. porta STORE THE -ArnRES 
pete 000007 CMP PORTA, #7 *SEE IF ADDRESS Fo LARGE 
101403 BL0S ss *BR IF 
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STARTUP AND INITIALIZATION ROUTINES 


022147 ADRERR sTYPE ADDRESS ERROR MESSAGE 
BR is TRY AGAIN 

001216 O01220 2s: ORTA, PORTB GENERATE THE PORT 8 ADDRESS 

1 NC PORTB j INCREMENT THE ADDRESS 
001220 #6, PORTB *LE IT 0 
MOV PORTA -(SP) :PUT PORT A ADDRESS ON THE STACK 

etch PORTB ieeye atts 1 8 2 IN PORT B ADDRESS 
PORTAIS ;*PORT A ADDRESS IS ’ 
PORTA, -(SP) PUT THE RODRESS ON. THE STACK 


s 
bs 


O=2 bo Faw 90 pe 


FERS LEFAERERESRS 
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Stalstatatacata 
8 


- 
ru 


-_— 
fu 
rg 

Nu oO 


PORTBIS 
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2 bo me ne ban bane fae be fe Pe pe 
S88 8R 8 


“LF 
GENERATE GOES i nIVE NOT TESTED 


COMPLEMENT SOME 

SAVE ONLY LOWER BITS 
;USE_PORT A AS INDEX 
: ATTENTION BIT FOR DRIVE 
; ONE VALUE 


: 
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RR 
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Rotts 


sSETUP CLOCK 

sCLOCK HAS BEEN STARTED 
sNO CLOCK ON SYSTEM 
sFATAL ERROR 

; INTERLOCK HALT 


;ROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR 


EXEC: sCLEAR EVERYTHING 
PS CLEAR THE SSOR STATUS WORD 
*RH11 ADDRESS FOR INDEXING 


;LOAD STACK POINTER 
arent THE CLOCK 


CLOCK 
TEST IHDTCATOR 


— 
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1 0 

i Bosaly 5 

1068 22 1 

1063 O0e4%26 000000 

1070 

1071 

ive 

1073 002450 000005 

1074 ee 012737 

1075 00240 012706 

i073 Dosues oLSea7 

ue va 

10% t 

te 002464 eh 

{ber Bosuze | fo4Noe 

1082 002476 104400 

i 002502 104416 

toee pesebe | ponaos 

1086 002510 011637 

1087 002514 012737 

te O02S2e2 013700 
| inca: 

ibe Posess peste 

1091 002534 o0040S 

in oo0es4e AT oose 

10984 O02eS44 104402 

1095 002546 000730 

10968 002550 000137 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 002554 013700 

tits 

ie? 

1109 

1110 

M111 

iis 
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1120 002560 

liel 002560 o00004 
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001262 
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022474 
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001262 
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DERPQA.P11 STARTUP AND INITIALIZATION ROUTINES 


001104 


177776 
000034 
000036 
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INC KYBCT TEST INDICATOR 
Roy Hiysicnt =—‘fPresttfYEnnt Tow Count 
JMP aes GO TO THE ig TEST 
WORD 0 TEST ADDRESS GOES 
;CHANGE THE RH11 UNIBUS ADDRESS USED BY THE PROGRAM 
CHANGE: RESET ; CLEAR THE SYSTEM 
MOV #340, d8PS ;LOCK out A INTERRUPTS 


MOV ru TACK, SP "LOAD THE STACK POINTER 
Me ET A late 
ti0, 0 TYPE OUT WHAT THE PRESENT ADDRESS IS 
MOV SRPADR -(SP) ‘PUT THE ADDRESS ON THE STACK 
TYPOC : SDOREES 


TYPE THE ACTUAL 
TYPE  ,SCRLF ?CR 
TYPE SNTRH11 “ASK FOR NEW ADDRESS 
7 eC (SP) CR’ EN 
BEG (e elt eee (NO ADDRESS CHANGE) 
MOV (SP) SRPADR 1m PUTT ABSRE 
is MOV Bg.4 "LOAD TRAP ADDRE 
MOV SRPADR, RO *RH11 ABORESS 
ADD #2,R0 > FORM BODRESS OF RHWC 
TST (RO) ;SEE IF RHI1 RESPONDS AT THAT ADDRESS 
BR 5: BR, RH11 ALIVE AT PRESENT ADDRESS 
2s: TYPE NORESP *REPORT_NO 
MOV RO, -(SP) > SETUP 1H CBRNERT ADDRESS 
TYPOC *TYPE THE ADDRESS 
BR CHANGE GET ADDRESS AGAIN 
3S: IMP START *GO TO THE STARTING ADDRESS 


5p RRRRRE LER ERE REE EEE REEL EE EEE ER EERE EEE EE EE EE EEE EEE EEE LEER EEE 
.SBTTL ##% TESTS *%% 
5 MRM ARERR ERE REA EEE EEE EERE REEL ER EEE EEE REESE 


TSTIAA: MOV SRPADR, RO ;;RESTORE RO AFTER END OF PASS 
[JH HHHBHHHHBHE THEE HHHE AHHH TBH HHH 
jaTEST 1 DRIVE ACCESS TEST 


VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 


a. ECT OR VERIFY THAT THE DR PRESENT THAT THE 
Brive 1 5 A pla BERT REG Tie Opie S ONLINE (RHDS1 HAS 
DPR’ a te sft SHE THE DRIVE SERIAL 
HO READ “tHROUGH’ ebTH PORTE. I fie 
B. THE TEST IS REPEATED THROUGH BOTH PORTS. 
jeeenues RELAELALARLALL ELLE RA ARARL REALL RELELERA EL EEL ELARLREL ELE 


SINITIALIZE THE SCOPE HANDLER 


ee2ee ee ee wewe we 
HE EK BR IC ORC aie IK ic 
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ed ae aa ONLY SINGLE TESTS ? 
BPL 1$ :BR_IF JUST ENTERED TEST 
JMP EXEC RETURN & GET NEXT TEST NUMBER 
1$: MOV ze KYBCTL SET SINGLE TEST INDICATOR 
es: MOVB ; TEST NUMBER 


TSTNM 
MOV stati SLPADR LOAD LOOP ON TEST ADDRESS 
MOV #TEST1; SLPERR ;LOAD LOOP ON ERROR ADDRESS 
MOV #1, STIMES *:D0 1 ITERATION 


H © KREELLAHH ALLAH ELH L ELLE ELK LKR E LEK AK EHH KEKE HHH KEKE ERE LE LE LL ELKEEE 
“END OF ’SCOPE’ SETUP - START OF MAIN TEST 


TESTI: 


[JG HHEHHHEHHHE HEHEHE HHHEHBE HEHEHE EHH EHE HHH HE 
i VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A & B 


MOVB PORTA,RHCS2(RO) ;SELECT PORT A 
MOV PORTA, BIN sMOVE PORT SS TO LOCATION FOR TYPEOQUT 
TST RHDS1{RO ;SEE IF DRIVE (PORT A) PRESENT 
CLR CLEAR THE *CHECK ERROR’ INDICATOR 
MOV RHCS2(RO),SBDDAT’ :GET CONTENTS OF RHCS2 
ey Beee Om SFO Pe ioien Maerese O° ERROR MESSAGE 
ere SGODAT *WHAT REGISTER SHOULD BE 

“MOVE REGISTER CONTENTS TO ’STMPO’ 


MOV SBDDAT, STMPO 
BIC #tCNED,STMPO ;SAVE SPECIFIED BITS 


T 
CHP SGDDAT, STHPO s COMPARE THE BITS 
MOV SBODAT,STMP4Y  ;COPY ’BAD DATA’ 
BIC #NED, STMPY SCLEAR THE MASKED BITS 
BIS STMP4, SGDDAT ;*OR’ WITH GOOD DATA FOR TYPEOUT 
ERROR 1 TYPE MESSAGE 1 
— Con CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
oe es a ad a 
ie Rip MESIR, Hea. Pan, To em "en 
MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
TST RHDS1 (RO) >SEE IF DRIVE (PORT 8) PRESENT 
FS) BEES cn, semper “He Cine geese ATOR 
MOV #RHCS2, SBOADR ;FORM REGISTER AODRESS _ OF ERROR MESSAGE 
R00 RO, SEOADR sADD RHI Base RDDRESS ss 
HOY SE008T, is se Dain SONTERTE TO *STMPO’ 
ee a 
MOV SEpDAT STMPY BR IF + BAD DATA’ 
BIC NED, STMPY ihe THE BreSkeD OyTe 
BIS STHPA, SGDDAT i OR. WITH G00 DATA FOR TYPEOUT 
COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
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1 DRIVE ACCESS TES 


SSesgsses 
Sst etait = t= ttt 
Sm BARSRaSeE 
e098 9898 es 8 
en ee ee 


see & 
is 


001236 


~ 


Dae PERE RRR 






T 


65S: NOP 
TST CKERR sWAS *NED’ SET ? 


BEQ +10 ;8R IF NOT 
MOV #CLR,RHCS2(RO) ;ISSUE MASSBUS INIT TO CLEAR 'NED’ 


$3 HKLHAK KARA ALLA L AA RHA KAKA AK AAA LRAKRERE RELA LRELEL ELLER A ERE LE~ AERERAAERE 
*CONFIPM THAT DRIVE IS AN RPOY AND IS DUAL PORT 


MOVB  PORTA,RHCS2(RO) ;SELECT PORT A 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR sCLEAR THE ’CHECK ERROR’ INDICATOR 

MOV RHDT(RO),$BODAT ’:GET CONTENTS OF RHDT 

MOV SRHDT,SBORDR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, SBDADR : 1 BASE ADDRESS 

MOV #24020,SGDDAT ;WHAT REGISTER SHOULD BE 

CMP SGDDAT,SBDDAT °;IS THE REGISTER OK ? 


BEQ 66S >BR IF OK 
ERROR 2 TYPE MESSAGE 2 
ca CoH CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
MOVB § PORTB,RHCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT AD RESS TO LOCATION FOR TYPEOUT 
CLR CLEAR THe 'CHECK ERROR’ INDICATOR 
MOV RHDT(RO),SBODAT ’:GET CONTENTS OF RHD 
MOV #RHDT.SBOADR -:FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, SBOADR sADD RH11 BASE ADDRESS 
#24020,$GDDAT ;WHAT REGISTER SHOULD BE 
CMP SGDDAT,S$BDDAT °;IS THE REGISTER OK ? 
BEQ 675. BR IF OK 
ERROR 2 - TYPE MESSAGE 2 
se COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 


3 GHEE TBH GHBEHEE HEHEHE HEHEHE HEE EERE 
;VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 


MOVB PORTA,RHCS2(RO) ;SELECT PORT A 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CY eel my gegon'“See cinretecoeees, eter 
MOV RABE SBDADR ;FORM Reg TeTEN BopReSe OF ERROR MESSAGE 
ry EUR cw RNiCteR SER EES 
MOV SBODAT,STMPO ° AHOVE REGISTER CONTENTS TO *STMPO’ 
BIC StCPGM;STMPO ;SAVE SPECIFIED BITS 
chp SGDDAT, STHPO s COMPARE THE BITS 
me Baraat ee Pal an 
1S STMP4,SGDDAT  ;'OR’ WITH GOOD DATA For TYPEOUT 
ERROR 3 *TYPE MESSAGE 3 
io Cott CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
—- Rp LEAR THE *CHECK ERROR’ INDICATOR 


CKERR ;CLE 
MOV RHDS1(RO),SBDDAT’ ;GET CONTENTS OF RHDS1 
MOV #RHDS1,S$BDADR ;SORM REGISTER ADDRESS OF ERROR MESSAGE 








ene ee eee ee ee eee 
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DERPOQA.P1! Tl DRIVE ACCESS TEST 
12 AUD  _—s RO, SBDADR “ADD RH11 BASE ADDRESS - | 
siete 001124 MOV BMOL'OPR'DRY,SGDDAT _;WHAT REGISTER SHOULD GE 
13737 D041 001156 HOY Se00A T SiKFO ind REGIST R CONTENTS 16 *STMPO’ 
AB; 154 Botte C arcioebo $s :C Fie SE 
1414 BEQ 69S *BR IF OK 
37 901126 001166 MOV SBDDAT,STMP4Y  ;COPY "BAD DATA’ 
1 001166 BIC 810600,$TMPY § ;CLEAR THE MASKED BITS 
OO1166 001124 EIS : , SGDDAT OR WITH GOOD DATA FOR TYPEOUT 
137 001236 ‘on CoM CKERR *SET REGISTER COMPARE ERROR iNDICATOR 
iar 001 000010 "  MOVB «=s« PORTB,RHCS2(RO)_ ; T PORT 
1 ies 001226 MOV PORTE ETHER hove BOAT abonese TO LOCATION FOR TYPEOUT 
CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
1 le 001126 MOV RHDS1(RO),SBDDAT’ GET S OF RHDS 
01 9950 001122 MOV SRHDS1,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
1 ADD RO,§ *ADD RHI SS 
1 901 901124 MOV T ;WHAT REG 
1 001126 0011 MOV SB00AT, TPO” CONTENTS TO °STMPO’ 
ier7? 001156 BIC StCPGM,STMPO ;SAVE SPECI FIED ' TS 
1124 001156 CMP T,STMPO 6° SC 
001414 BEQ seen :BR IF 
ae 011 001166 HOV SEODAT, STHPY : "BRO DATA’ a 
Sotiee ates $e sri “ »SGDOAT  ;'OR’ WITH wen para FOR TYPEOUT 
Oos137 001236 ia Con CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
1263 003674 00 " CLR CKERR ;CLEAR THE *CHECK ERROR’ INDICATOR 
1264 yen le 001126 BOV RHOS1(RO),SBDOAT’ :GET 
1265 6 Ole? 3 O01 001122 HOV aR 1, SBOROR sFORM REGIS SS OF ERROR MESSAGE 
1 Ot 1 001124 MOV more "pry, scobAate sWHAT REGIS SHOULD BE 
158 oars ot eit ee ties ee | OSariOEOS eTHpo cove SPECiFico Bre PO 
1276 73? ABrida BpLiee erp GSORT, tMPO iC Pa fe bite 
1 Lara 0011 001166 MOV SEODAT, STHPY COPY "pA DATA’ 
1273 Ot 1166 BIC 810600°STMPY =: CLEAR MASKED BITS 
1274 1166 001124 BIS STMPY,SGDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
iste Sar , 37 001236 ERR CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
a 00400e Bpaeao 71S: NOP . 
1279 g¢ ESESEKSSELEKE RES RSERESHEZEAL EL ESESERSEARERERE ERLE SURSELERRERHRKHLESLRRE 
- *VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME 
i 113760 001216 000010 MOVE PORTA, RHCS2(RO) ;SELECT PORT A 
1ea3 016037 001124 MOV RHSN(RO) T 5 STORE THE PORT A SERIAL NUMBER 
13760 001 000010 MOVB  PORTB.RHCS2(RO) ;SELECT PORT B 
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103000 177570 IT —-BSWIS, SHR ;HALT ON ERROR ? 
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DERPOA.Pi1 Tl DRIVE ACCESS TEST 


1290 O040S4 001001 
deena 

1 

ie 

ics 1 4 001103 
ies BovDee Baers? 001000 
1301 102 A O11 78 
ae 
1303 

1304 

ia 

iss 

1308 

1309 

1310 

1311 

i3le 

1313 

1314 

1315 

1318 

131 

1318 

1343 

i 004112 

1 004112 

1 004114 001260 
i Doze 001406 

1 124 oeai3 002262 
1 004130 O01 1 

ts aie bee Be 
1 004152 O1 lee 
i 004160 012737 1 
1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

1 


FESSACRO SERENE SO SOO 


177570 


BNE 1$ :BR IF SET - PROGRAM HAS ALREADY HALTED 
mt HALT ‘HALT, POSSIBLE CABLE CONNECTION PROBLEM 
sIF ERROR OCCURED, CHECK FOR LOOP ON TEST 
TSTB © SERFLG ;D1D AN ERROR OCCUR ? 
BE TST2 : NOT 
IT 8SWO9, SWR tape F LOOP ON ERROR SET (SWR9=1) 
BEQ, TST2 : BR T. 
2 LG CLEAR ERROR FLAG 
: ¢LR STINES > CLEAR t MAX ITERATION COUNT 
IMP JSLPERR >GO TO THE LOOP ADDRESS 


j ERERSEEEAEEE REE ELSES REELS EERE EE EERE EERE ELLE EEEREEESEEEL EEE 
saTEST 2 SET 'VV’ FOR PORT A 


taSET VOLUME VALID 


3% 
is A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A. 
*# B. {SSE A_REAOIN PRESET COMMAND THROUGH PORT A. VERIFY 
i THE "VV" BIT IS SET FOR PORT A. 
:# C. PORT A. IFY THAT 
is The bat bar TO NEUTRAL AND THAT NEITHER ATTENTION 
Fs penansesesstnussntstesnstbtsetiatsensaaess 
sINITIALIZE THE SCOPE HANDLER 
TST KYBCTL mie wor NG ONLY SINGLE TESTS ? 
BEQ 2s 
ie Bec ni tehily 
1S: MOV #-1, KYBCTL : SI TEST INDICATOR 
2s: MOVB STSTNM 
MOV STEST SPOOR rire ON TEST ADDRESS 
MOV #TEST LOOP ON ERROR ADDRESS 
MOV #1, STIMES ito 1 ITERATION 
s AND OF SCOPE’ SETUP © START OF HAIN TEST NHEREER ESS 
END OF ’ * SETUP - START OF MAIN TEST 
TESTe: 


MOVB = PORTA, (o) T PORT 
MOV PORTA,P nove BOR aboREss TO LOCATION FOR TYPEQUT 


s ELLE SELESHESRRSE SE SLE LES ESESRASLERSARRKRRSLRRRLL SE SLE KER EERE EERE RRELRAE 
>SET VOLUME VALUE FOR PORT 

MOV #11, RHCS1 (RO) sISSUE A DRIVE CLEAR 

MOV #21" RHCS1(RO) ISSUE A READIN PRESET 
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SET ’VV’ FOR PORT 
012760 010000 000032 eFNT22, RHOF (RO) 


SRESKEEEEKSELELFSALESSSSFLLLEL ESE LSLELELLE SLE LE LELLEE FLL ELEAF FLERE LAKES 
VERIFY THAT THE DRIVE STATUS IS CORRECT 


THE *CHECK ERROR’ INDICATOR 
Ris RO), $80 SBDDAT cL CONTENTS OF RHDS! 


oper 


8 
ee 


a ivy, scboA STER SHOULD BE 


sara 
888 8888 88 
Tee Rey Re 


a ala 


39 SH HIHIHIHIHEHEHHHHEHEHHEHHIEHHEEHHEHHEHHEHEE EEE EEE 
;RELEASE THE DRIVE FROM PORT A 


ARTA 
eee 


sé 


A RC (RO) CT 
BNR: 7 hove PORT ADDR + pbpRese TO LOCATION TYPEOUT 
RELEASE THROUGH PORT A 
; VERIFY reat THE DRIVE IS IN NEUTRAL 
CLR RELERR 


— 


SSS8B8 


w 
ont 
oO 


Bqneas 


~ 
wr 


se8g22 99 


—4 


TERR er eh BE RES RR RES 


SE a 


sae 


= bs ban ae Bn Oa he eee an Oe ee ee a Pe 2 Pe Pn Pe 2 Has Pe ne Pee 


2: 
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;SET FMTée 





A ea REGISTER ADDRESS OF ERROR MESSAGE 





ite Tigi ged Bigonty 
cones THE BITS 
iOpY’ "BAO DATA® 


“CLEAR THE MASKED BITS 
5208” MI WITH 6000 DATA FOR TYPEOUT 
:SET THE RE CISTER COMPARE ERROR INDICATOR 





; ISSUE 


;CLEAR THE *RELEASE ERROR ’ INDICATOR 
;FORM THE OF RHDS1 FOR TYPEOUT 
;ADD THE 170 ADDRESS 

» SGDDAT ne CONSTANT 


iS he bu + fe STATUS REGISTER FROM PORT A. 
*CLEAR ORT DEPENDENT BITS FROM THE COPY 


CT 
er THE PORIVE: STATUS REGISTER FRCM PORT B. 
COPY IT INTO td A 


HS the St TATUS REGIS TER THE SAME PRON BOTH PORTS ? 
ineG STERS ARE THE SAME: ARE THEY ZERO ? 
EFEST PTE CHEEKS neon 


T TATA E OR GR ERROR MESSAGE 
I EST SHOWS DRIVE NOT IN NEUTRAL 


at "EQ 0 FROM PORT A. 


: 
; SEIZING 4g! F TEST SHOWS pRIVE NOT IN NEUTRAL 
DATA’ FOR ERROR TYPE OUT 









Se mm ae a ee a eee ee: ee ee ne ee 


ee ao 
' 


: 
4 


Secnaeen 


ee ee ee eo ee 


ania tues 
aga suae 
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ota737 


1 
00140 
ows? 


oon 
- 


a 


= 


a 


ue 2 


a 
1410 a ae 
Pees 
he Par 
it: 


SET 'vv' FOR PORT 
001216 000010 MOVB poRTA, RHCS2(RO) ; ay POR 
1160 TST STMP ft uit ATUS’ EQ ZERO FROM PORT B. 
177777 001242 66S MOV 8-1, RELERR "RELEASE ERROR’ INDICATOR 
ERROR deat HESSAGE 
001162 001126 678: MOV 2, SBODAT a AIL WHEN RHDS1 READ 
1216 OOle2 TA; PTNBR "wreeR 
100100 0011 BIC BATA! VV sirpe check f ATTN BIT OR VV BIT 
001124 001162 CMP $ th "BIE 
BEQ BR IF OK Pron PORT A. 
ERROR ERROR 
0-164 001126 68$: MOV TMP3, T CHECK 1 FoR BIT FAILURES - FROM PORT B. 
1220 001226 MOV T > CHANGE 
100100 OO1164 BIC SATA! VV, STMPS DON’ T CHECK ATTN BIT OR VV BIT 
001124 OO1164 CMP SGDDAT, $TMPS READ OK FROM PORT B. 
BEQ 69S *BR IF OK 
ERROR 37 REPORT THE ERROR 
69$: NOP 
sIF ERROR OCCURED, CHECK FOR LOOP ON TEST 
001103 TSTB LG ;DID AN ERROR OCCUR ? 
By aw ie iE Ke 
001000 177570 BIT #540 , SUR F LOoP ON ERROR SET (SWR9=1) 
001103 CLRB  SERFLG f, a rhe TERROR FLAG 
001170 CLR STIMES “CLEAR THE MAX ITERATION COUNT 
174166 IMP aSLPERR *GO TO THE LOOP ADDRESS 
: HEE LEESFERKE KSEE SE ELA ESS SLASEKELE RS SERRE RE SEEKSSLRE LESSER ESLER ELE 
jaTEST 3 SET ’VV’ FOR PORT B 
j4SET VOLUME VALID 
ii A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B. 
:# B. ISSUE A READIN PRESET COMMAND THROUGH PORT B. VERIFY 
i THAT THE 'VV’ BIT IS SET FOR PORT B. 
2% C. ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THA 
if th ORIve RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
2 
Ba epee aren are a 2 
Ze THE SCOPE HANDL' 
001260 KYBCTL ee ONLY SINGLE fais ? 
BEQ 2s 
sacee ie Bec be PLP EP a 
1 ool ite 1s: MOV a-t KYBCTL ie SI TES INNTeATOR 
0011 ‘ Ho Ne weer aD hetans ss 
004 001110 MOV aT +S PERE Loop ON ON ERROR RODRESs 
000001 001170 MOV #1, artes >3;D0 1 ITERATION 
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SET *VV’ FOR PORT B 


uy ND OF SCOPE’ SETUP = START OF PAIN TEST TN HABERES? 
: END SCOPE’ SETUP - START OF MAIN TEST 


TEST3: 
Boece 113760 001220 000010 MOVE PORTB,RHCS2(RO) ;SELECT PORT B 
005004 913737 OO0le2e0 O0lecb MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


$ ot cea ut ae Me aa eae 
:SET VOLUME VALUE FOR PORT 


! ULRESI TSS 8 BLS, HE 


bee 
tu 
f~ be 





905020 
147) 005026 012760 sFMt22, RHOF (RO) TET FNTEE 
He SUERIFY THAT THE DRIVE STATUS Is CORRECT 
ie 901 CLR CKERR THE ’CHECK ERROR’ INDICATOR 
14 eae years Suna] 001126 MOV RHDSI (RO). SBODAT’ <GET CONTENTS OF RHDS1 
1478 Boepes pena? Boras otlee ADD SRHDS 1, SEOPOR sF ORR Hee Ree ORESS  CRROR MESSAGE 
480 005060 012737 011700 001124 MOV 'PGM! DFR!DRY! VV T jive FETS SHOULD BE 
1481 005066 O1 1126 001156 MOV T.STMPO. ; GISTER CONTENTS TO ’S$TMPO’ 
4B 005074 O42737 106077 001156 BIC 81C71700,STMPO SAVE SPECIFIED BITS 
1483 0051 Gea7 3 001124 o01156 CMP SGDDAT,STMPO ;COMPARE THE BITS 
1484 00511 ree BEQ 6 *BR IF OK 
fie etls Bier Opus aie aa Seer ee eels he Rl arr 
1487 00512 Oss737 1166 001124 BIS STHPS, SGDDAT 3 OR? WITH 6000 Bata FOR TYPEOUT 
; 005135 137 001236 ai co GKERR SET orreE ReCISTE COMPARE ERROR INDICATOR 


, | HAHAH HHH HHH HHH a 
sRELEASE THE DRIVE FROM PORT B 
PORTB, TB. RHCSe(RO) SELECT PORT 
T ADDRESS TO LOCATION FOR TYPEOUT 
eh TRtes CRO)’ ‘issue RELEASE THROUGH PORT B 
VERIFY THAT THE DRIVE - IN NEUTRAL 


te 





Gov RRs sCLERR THE, ORELERSE ERROR * INDICATOR 
ADD RO, SEAR *ADD THE I/ $s 
MOV andl PH! RLORY, 7 CONSTANT 
nov HOS te } ; ite Ng STATUS REGISTER FROM PORT A. 
BIC BATAIYY : BITS FROM THE COPY 
Bove PORTB pe Se ) SELECT Pon 

HOS te ) 3 Gr H nIve. TATUS REGISTER FROM PORT 8. 
BIC BATAIVV,STMP1  3CLEAR rane gine® 


DEPENDENT BITS FROM THE COPY 


- ARG OSES EL EC ee ae PF 
3 SESSSEESSSEAS : 


5 
| 
| 
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T3 SET ’VV’ FOR PORT B 


001156 001160 
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CMP Erero, Sts iB Te ZTATUS REGISTER THE SAME FROM BOTH PORTS ? 
TST STMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ” 


7$ ; 
ERROR ie er Wlrve NOT IN NEUTRAL 0 OR NOT SEIZED 
65S: MOV STnP2, SBODAT HET POESTBCE Sh He rE GR ERROR MESSAGE 
HOV alt PTNER an) iBEIZ NG PORT I IF TEST SHOWS DRIVE NOT IN NEUTRAL 
TST = IF oaTue’ EQ 0 FROM PORT A. 
a a ; 1 PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
Ye RTE: Be2noy fcBP CP eng OO TPE 
TST STHPL ;SEE IF guntus EQ ZERO FROM PORT B. 
665: MOV 1, RELERR is "RELEASE ERROR’ INDICATOR 
67S: iat i STHPe, SBDDAT ie Stal ake WHEN RHDS1 READ 
BIC enTALW STIPE T CHECK ft ATTN BIT OR VW BIT 
Se ae eS 
68S: HOV STHP3, SBODAT > CHECK RHOSI FOR BIT FAILURES - FROM PORT B. 
BIC BATA! VV, STMPS ion aT CHEEK ATTN BIT OR VV BIT 
CMP SGDDAT,$TMP3 SEE _IF READ OK FROM PORT B. 
BEQ 695 BR IF OK 
sai ERROR 37 *REPORT THE ERROR 
IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
TSTB = SERFLG ;DID AN ERROR OCCUR ? 
BEQ TST4 3iBR IF NOT 
BIT #5109, SUR air en ON ERROR SET (SWR9=1) 
SERFLG bAPE ERROR FLAG 
CLR STIMES *CLEAR THE MAX ITERATION COUNT 
IMP JSLPERR GO TO THE LOOP ADDRESS 


esmegnseneenannnsase es JHHBIHBHHEHHHHIHHEHHEHHHEEHEEHHEHHEHEHEHEE 
jaTEST 4 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 


t SNEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A 


ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 


a 

5% 

3;# A. WRITE 0°S INTO \ensnens PORT A AND VERIFY THAT THE 

H DRIVE HAS BEEN SE 

ii B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
t& 
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MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 





bt 
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;# C. VERIFY THAT THE TIMEOUT OCCURED AND THAT THE DRIVE RETURNS 
3% TO NEUTRAL 


ren gemete seen noi scm wm pa ame tit era cm ea 
SCOPE sINITIALIZE THE SCOPE HANDLER 
TST KYBCTL *PERFORMING ONLY SINGLE TESTS ? 
BEQ 23 :BR If NOT 
BPL 1$ :BR IF JUST 
IMP EXEC *RETURN & GET NEXT TEST 

1S: MOV 8-1 KYBCTL *SET SINGLE TEST INDICATOR 

2s: MOVE = s #4 STSTNN : TEST 
MOV STEST4,SLPADR ;LOAD LOOP ON TEST 
MOV STESTY SLPERR LOAD LOOP ON ERROR ADDRESS 
MOV #1, STIMES >:D0 1 ITERATION 


5, RHERERELELLLLLLLALESELELLELELE SL LLLER ELLA RE LELL ALLELE LALLA LE LLLLE EES 
“END OF "SCOPE’ SETUP - START OF MAIN TEST 
TEST4: 
CLR TIMEA sCLEAR THE TIMEOUT VALUE STORAGE LOCATION 
CLR TIMEAP ;CLEAR THE + 25% TOLERANCE LOCATION 


5, SHRAEREREAELELLLE ALE LLELALLLL LALA LLELELLLRL RELA LL ELLA ELELELLELLEL REELS 
START THE TIMER 


CLR TIME ; THE ELAPSED TIME COUNTER 
MOV #2000.,WATCH #§ ;SET WATCH TO 2000 MS 


3 EASES ESE SSE SE SE SE SE EE EE EEE EE REE 
;SEIZE THE ORIVE THROUGH PORT A 






MOVB PORTA,RHCS2(RO) :SELECT PORT A 
MOV PORTA.SEIZPT ;STORE SEIZING PORT’S ADDRESS 

CLR tRO) sWRITE 1. 

MOVB ,RHCS2(RO) ’ SELECT 8 

MOV * PTNBR ; MOVE. PORT RODRESS TO LOCATION FOR TYPEOUT 
MOV PORTB, OPPRT ; OPPOSITE’ ADDRESS 

MOV 1(RO),SBDDAT’ ;SEE IF DRIVE SEIZED BY PORT A 

MOV RO ;RH1 $s 

R00 eRHOSL, icevena REGISTER ADDRESS 

Kun Sep pAT, SBDDAT if 12 REGI pero 

BEQ +10 *BR IF IT IS 

ERROR 30 +REPORT ERROR 

IMP 4g ; OF THE SUBTEST 

MOVE PORTA,RHCS2(RO) ': T a 

MOV PORTA; PTNBR iHOVE pODRE TO LOCATION FOR TYPEOUT 
MOV RHDSI(RO),SBDDAT ;SEE IF ING PORT SEES CORRECT STATUS 
MOV PCM! OPR! DRY! VV T sEXPECTED STATUS 

MOV T,STMPL ; DATA fe A 

COM : EXPECTED STATUS 

MOV SBDDAT,STMPO —-; SAVE ACTUAL STATUS 

BIC STMP1, STNPO CLEAR UNWANTED BITS 
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DERPQA.P11 TY MEASURE THE TIMEOUT ONE-SHOT THROUGH POR 

1 3737 001124 001156 MP SGDDAT,STMPO § ;ARE THE EXPECTED STATUS BITS SET ” 
162 ORs 0b797 gOS BR IF THEY BRE 
! ERROR 31 REPORT THE ERROR 
1 : © KELEESLLALERAEAKKRE ELE KAAKAEKLALELELRELARALALREREAASREALELALEEEARELERELERE 
1631 WAIT FOR PORT A TO TIMEOUT 
1633 bo602 113760 001220 op0010 MOVB  PORTB,RHCS2(RO) ;SELECT PORT B 
1634 13737 OOl2e20 O0l226 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
1635 Do604¢ 005760 000012 1S: Ist RHOSItRO) sHATT FO FOR He OR DRIVE TO. TIMEOUT 
1637 Sob04e Boers 001246 TST WATCH CHECK CK HATCH 
1638 1372 BNE 4 :BR BR IF NO T ZERO 
te Gee HER ome a ee eas ene 
1641 ieee 001244 001250 2S: MOV TIME, TIMEA ; g ELAPSED TIME FOR PORT A 
1e43 BRED bose Lee a SCLC ATE THE TOLERANCE 
ee 006076 ek 001252 MOV (SP)+, TIMEAP toe TOLERANEE 
16 H s KESEKERELES EHLERS SRE LE SA THK KRKELESMLE RT ERA REL EER RAR AEE LHL RES REALE RHEEE 
iba? :VERIFY THAT THE TIMEOUT ONE-SHOT VALUE IS AT LEAST SOO MS 
1649 006102 023727 001250 000764 TIMEA, #500. sIS TIMEOUT VALUE AT LEAST SOO MS ? 
1650 006110 103001 STS 3$ : T IS 
1651 006112 104007 ERROR 7 *TIMEOUT LESS THAN SOC MS 
1653 H oRELERELLL LEX SLES MEKSSEL ELE SE SREE SE LE LEVERS SERS EERER EEL HSER SLE SES EK ES 
1654 :VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 
1656 006114 3S: 
1658 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
1660 114 001 CLR RELERR THE *RELEASE ERROR ’ INDICATOR 
1661 134 poss le o01122 MOV #RHOS 1, SBDADR FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
tebe 006 12% D600? 0011 a: ADD a BOAO {AOD THE 1/0 BASE DORE al 
lees ote 8 1760 Obie bondi Hove Se iD) The bev STATUS REGISTER FROM PORT A. 
1 1S4 Ol ig2 001156 MOV STHee “COPY I 
ee? Gos ee ed 100100 001156 BIC SATA! VV, STMPO . >CLEAR PORT DEPENDENT BITS FROM THE COPY 
ek Bim ee ae BBM es ye guns eerste ro aro 
167 oie? 37 400100 001160 BIC BATA! VV, STMPL SEPENDENT BITS FROM THE COPY 
ib 1156 001160 CMP STMPO, STMP1 sere Te STR STATUS REGISTER THE SAME FROM BOTH PORTS ? 
1674 001156 S etapa iReclsTeNs ARE THE SAME: ARE THEY ZERO ? 
1675 1045 BNE 66S 
16 104 O34 ERROR 34, 34 i PEPORT p DRIVEN NOT oft NEUTRAL, QR NOT SEIZED 
1678 O17 37 00 lige 001 64S: MOV sitee, SEODAT a if "eon BAD DATA FOR ERROR MESSAGE 
1 1 001 001 MOV 12 NG PO AP SHOWS DRIVE NOT IN NEUTRAL 
1680 006260 113760 001220 O000i0 MOVB PORTE, RHCS2(RO) ; 

1681 006266 005737 001156 TST ‘eee fr eee TUE” EQ 0 FROM PORT A. 
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67§: 


» RPOY DUAL CONTROLLER LOGIC TEST - PART 2 MACY11 a 
TY MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT 


BEQ 
ERROR 
NOP 
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Fok, PTNER ER NeCPORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
RROR TYPE OU 


jth Trav ish cP dnd" o* € 


i SEE 1F not STATUS EQ ZERO FROM PORT B. 


#-1,RELERR eer RELEASE ERROR’ INDICATOR 
#11;RHCSI(RO)  ;CLEAR THE DRIVE 
41s, »RHCS1(RO) 2 THE 4 35 
STMP2,SBDDAT  ;LOOK FOR BIT FAILURES WHEN RHDS1 READ 
PORTA, PTNBR ;CHANGE PORT NUMBER 


#ATA, $TMP2 “DON’T CHECK THE ATTN BIT 
SGODAT,STMP2 § ;ALL BI is OK ? 
zs *BR IF OK FROM PORT A. 
*REPORT ERROR 
$7HP3, SBODAT | ;CHECK RHDS1 FOR BIT FAILURES - FROM PORT B 
PORTS, PTNBR *CHANGE PORT NUMBER 
#ATA STH *DON’T CHECK THE ATTN BIT 
SGDOAT, $ “SEE IF READ OK FROM 
BR IF OK 
35s REPORT THE ERROR 


;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 


SERFLG ;DID AN ERROR OCCUR ? 

TSTS BR IF NOT 

#S5W09, SWR >SEE IF LOOP ON ERROR SET (SWR9=1) 
TSTS :BR IF it 

SERFLG CLEAR THE ERROR FLAG 

STIMES Ct EAR THE MAX ITERATION COUNT 
JSLPERR *GO TO THE LOOP ADDRESS 


| HHEHEHHHEHHBHHBHHHHHBGHEHHHEHHEHHHHHEHHHE HEHEHE HHEHHEEHEE 
STS MEASURE 


j#TE T 


THE TIMEOUT ONE-SHOT THROUGH PORT B 


°% 
*#MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT B 


= HE OC BOC BK DOK aoc Oe ote 20 ec 


Gee we we Se oe We we ws wee we 





TST 
Q 


a. wee oe pure SHS) THROUGH PORT B AND VERIFY THAT THE 


B. wit Ee TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 


T AND SAVE THE VALUE FOR LATER USE. 


C. TERE THAT THE TIMEOUT OCCURED AND THAT THE DRIVE RETURNS 


llega 


; INITIALIZE THE SCOPE HANDLER 
KYBCTL PERFORMING ONLY SINGLE TESTS ? 
es :68 a NOT 

1$ ;BR IF JUST ENTERED TEST 











KO3 
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DERPQA.P11 
1 O0&S06 
: O06Sie 
i 006534 
: 006S42 


SSR Siee iar nent Par RP RPO 


bas hn bat bes 
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ge28 
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00S037 
012737 
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Seseas eae 
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ba at bot Re 


THE TIMEOUT ONE-SHOT THROUGH PORT B 
JMP EXEC ;RETURN & GET NEXT TEST NUMBER 


001260 1S MOV #-1 KYBCTL *SET SINGLE TEST INDICATOR 
001102 2 MOVE sa $ TNM : TEST NUMBER 

0011 MOV #TESTS,SLPADR ;LOAD LOOP ON TEST ADDRESS 
001110 MOV STESTS,SLPERR  ;LOAD LOOP ON ERROR ADDRESS 
001170 MOV #1,STIMES *:D0 1 ITERATION 


5; RERRRARRLAA LARA RELALEL ELAR ALLAE LLL LLEELRLAL EL ALLE LES RLLE SELLA ER ELE LES 
END OF *SCOPE’ SETUP - START OF MAIN TEST 
TESTS: 
TIMEB CLEAR THE TIMEOUT VALUE STORAGE LOCATION 
CLR TIMEBP ;CLEAR THE + 25% TOLERANCE LOCATION 


5, RERRRAARELA ELAR ELAAREAAAAE REALE RELL ALELELELAL EEL ELLA RELA LLL RELA LALA EEE 
:START THE TIMER 


CLR TIME ;CLEAR THE ELAPSED TIME COUNTER 
001246 MOV #2000.,WATCH §§ ;SET WATCH TO 2000 MS 


3 EEE SEE 96 ESE ESE EEE SG SEE EEE EE 
;SEIZE THE DRIVE THROUGH PORT B 


000010 MOVB § PORTB,RHCS2(RO) ;SELECT PORT B 
001230 HOV PORTE, SEIZPT sSTORE a3 aU PORT’S ADDRESS 
000010 MOVB § PORTA,RHCS2(RO) *-SELECT PORT A 
goize6 HOV PORTA, PTNBR ; MOVE. PORT ADORESS - TO LOCATION FOR TYPEOUT 
001126 oy RHOS1UR) , SBDDAT ast st DRIVE SEIZED BY PORT B 
001122 ADD #RADS1 , SEDADR cen nar ghd FECISTER_ADORESS 
001126 CMP Heit T, SBDDAT 1S THE Reet SER ZERO 

BEQ +1 *BR IF 11 Is 

ey . i Byppes REST OF OF AE SUBTEST 
ee HOV” PORTB PTNBR on ry AORESE TO LOCATION FOR TYPEOUT 
at e 
HA MM I UNI I gS 
001160 MOV SCODAT, STHPL ;USE ie: 
901156 SOV SBODAT.STNPO |. SAVE THE ACTUAL STATUS, 
001156 BIC STP1.$ ; BIT 

1156 CMP ScopAT; * ARE EXPECTED STATUS BITS SET ? 
Q +4 *BR IF T 
EEROR 31 ; T THE ERROR 


5; RRAREAERALLAAA EASE LEELA LA ELALA LLL ELAR ALA EARLLA LARA RAL ALL ALARA AEAES 
*WAIT FOR PORT B TO TIMEOUT 


000010 MOVB  PORTA,RHCS2(RO) ;SELECT PORT A 
001226 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
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TS MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B 


ifs OGhode Gord 


: 


SNe Reo Ses 


PeslesTéslecTes[eclesleslealss] 
2 0 me fn ae fo he pe 
WON U CWO 


0 ne bn be bs he ae Be ee bs ae bn ne ne be ne ae ns ns nw ne 


SERS NO Res 


a 
A 
¥ 


SHOUSOGaNED | 


00$737 001246 


023727 001254 


Rea 
38 
ase 


= 


= 


-OO 
bes pee 


Pa 
ge 
88988 ess 
for sro 
Beem Rey 


a 


001254 


000764 


1S: 


TST RHDS1 (RO) 
BNE 23 

TST HATCH 

ERROR 

the res 
JSR RS, TOLER 
.WORD TI 

MOV (SP)+, TIMEBP 
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;WAIT FOR THE DRIVE TO TIMEOUT 
;BR WHEN TIMEOUT OCCURS 
;CHECK WATCH 


iBR OF TE OUT HITHIN 2 SECONDS 
Bye eg ORAS FOR PORT B 
SCALCULATE THE TOLER 

iHINEOUT VALUE. FOR PORT B 

425% TOLERANCE 


35S SEE SESE SEES ESE EEE SESE EEE SEE EEE SE EEE EEE EEE EEE 
;VERIFY THAT THE TIMEOUT ONE-SHOT VALUE IS AT LEAST SOO MS 


Bis 


TIMEB, #500. 


= 


iB Tyre OuT VALUE AT LEAST SOO MS ? 
TIMEOUT LESS THAN SOO MS 


pupepunpoegnecseperusescessenetensnecssestancoenesausetucesseeousnanaas 
T THE ORIVE RETURNED TO NEUTRAL AFTER PORT B TIMED OUT 


VERIFY 


64S: 


655: 


ay ay de THAT THE DRIVE IS IN NEUTRAL 


ae 


PORTA ) 
eres ein tReO 
yin 

OV, STMPO 


‘ee 
#11, RHCS1(RO) 
#13, RHCS1 (RO) 


;CLEAR THE ’RELEASE ERROR ’ INDICATOR 
sFORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
;ADD THE 170 BASE ADDRESS 

DRY! VV — aaa CONSTANT 


sever ORIVE" STATUS REGISTER FROM PORT A. 
;COPY IT INTO °§ 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
2GET oR IVE STATUS REGISTER FROM PORT B. 
*COPY IT INTO °STMP1’ 


HTS The SATUS REGISTER THE SARE FROM BOTH PORTS * 
;REGISTERS ARE THE SAME: ARE THEY ZERO ? 


opel We Tee feb "eh beatae OR NOT SEIZED 
se tzIN NG POR aT oF fests SHOwS FOR ERROR MESSAGE 
ie tF STAT “EQ O FROM PORT A. 


eed PORT IF TEST peous DRIVE NOT IN NEUTRAL 
jc BAD TA’ re ERROR TYPE OUT 
8 


PORT 
Pag EQ ZERO FROM PORT B. 
T *RELEASE ERROR’ INDICATOR 


{CLEAR THE DRIVE 
sRELEASE THE DRIVE 





MO-11-DERPQ-A, 


DERPQA.P11 


BaRmMMOM mone mE mm mmm mam 
ERER RANI a tet data tod ait 


1895 
1896 


RESSEESES 


MU 
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MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B 


S888 sss 
mown 
£coo 


177570 


66S: 


67S: 


68S: 
4§: 


We WR DK BC OR a IC OC aR RC RC OC aR RC ae a RC ae ae RC Be a ee Ok 38 


Gy” Stree, seooar iL 00x FOR G1Y FRILORES WHEN RHOSL READ 


CHANGE PORT NUMBER 
BIC #ATA tines iDON'T check THE ATTN BIT 
MP AT, STMP2 LL BITS 


BEQ 67S BR IF OK Pron PORT A. 
ERROR 37 *REPORT ERROR 

- MOV STMP3,SBDDAT | ;CHECK RHDS1 FOR BIT FAILURES - FROM PCRT B. 
MOV PORTE: PTNBR *CHANGE PORT NUMBER 
BIC #ATA, $TMP3 DON’T CHECK THE ATTN BIT 
CHP SGDDAT, $TMP3 see IF READ OK FROM PORT B. 
ERROR 37 *REPORT THE ERROR 


;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
ire SERFLG ;DID AN ERROR OCCUR ? 


Q TST6 : NOT 
BIT #5W09, :SEE IF LOOP ON ERROR SET (SWR9=1) 
BEQ TST6 : NOT 
CLRB § SERFLG FALEAR THE ERROR FLA 
CLR STIMES AR THE MAX FTERATION COUNT 


:CLE 
G0 TO THE LOOP ADDRESS 


foh-5-5--b-dalalalababablal-t-t-1-Sahateta-t-b-tab-tetet-bet-ts-yt-t-toh-frt-+-4-1-tah-elelalllalablelelaiala 
pRTE 6 TEST UNLOAD COMMAND THROUGH PORT A 


tAVERIFY hes THE UNLOAD COMMAND FUNCTIONS PROPERLY AND THAT A PORT 


TIMEOUT WILL NOT OCCUR WHILE THE ’GO’ BIT IS SET. 


ISSUE AN UNLOAD COMMAND THROUGH PORT A; VERIFY THAT THE 
DRIVE IS SEIZED. 


WATT THE MEASURED TIMEOUT INTERVAL + 25%; VERIFY THAT THE DRIVE 
DOES NOT TIME OUT. VERIFY THAT THE ’GO’ "BIT IS STILL SET AND 
THAT "DRY’ AND ’PIP’ ARE NOT SET. 


REQUEST THAT THE OPERATOR PRESS THE 'STANDBY’ BUTTON ON THE DRIVE. 
Ben Te DRIVE CYCLES UP, verry THAT THE yh B, Stitt SEIZED 
T A, THAT THE VV’ BIT FOR PORT A 1s RESET 4 
BTTENTION’ BIT FOR PORT A : SET, AND THAT T ATTENTION T 
OR PORT B IS NOT SET. 
WAIT FOR THE port TIMEOUT TO RELEASE THE DRIVE. WHEN THE TIMEOUT 
OCCURS, VERIFY THAT THE DRIVE RETURNED TO NEUTRAL, THAT THE 
ATTENTION BIT FOR PORT AIS STILL SET, AND THAT THE ATTENTION 
BIT FOR PORT B IS NOT SET. 
VERIFY THAT THE ’VV’ BIT FOR PORT B IS NOT SET. 


ISSUE A PACK ACKNOWLEDGE INSTRUCTION THROUGH BOTH PORTS. 


a tr.. 


« 
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DERPOQA.P T& TEST UNLOAD COMMAND THROUGH PORT 





1308 007436 paar gpg cabot on Seams eae aie nage ee tacaaaig sD 

1908 007436 "SCOPE sINITIALIZE THE SCOPE HANDLER 

1909 007440 005737 001260 ist kyBCTL ;PER ERT ORNING ONLY SINGLE TESTS ? 

1911 OO Sae ToaooS BPL 1$ BR IF JUST ENTERED TEST 

igi 0074S0 900137 o02262 IMP EXEC RETURN & GET NEXT TEST NUMBER 

1913 007454 012737 177777 001260 1S: MOV 1 KYBCTL s9ET TANGLE, TEST INDICATOR 

1914 112737 001102 28: MOVB 

1915 007470 012737 oo7512 001106 MOV aTESTE, SLPADR i ORD LOOP om TEST ADDRESS 

1916 007476 Ole737 007512 001110 MOV #TEST6;SLPERR LOAD LOOP ON ERROR ADDRESS 

1917 007504 012737 001170 MOV #1,STIMES D0 1 ITERATION 

1asa 5 iD OF SCOPE’ SETUP © STPRT OF MAIN TEGT’ 
132 *END SCOPE’ SETUP - START OF MAIN TEST 

1923 007512 TEST6: 

1966 ;CLEAR ATTENTION BITS FOR BOTH PORTS 

1927 007512 113760 001216 000010 nove PORTA, RHCS2(RO) sSELECT PORT #0 

1699 907524 012760 000011 000000 MOY = BITCRHESI(RO) ©: TSSUE. DRIVE CLEAR 

1930 007532 Ole7b0 900013 900000 MOV 13°RHCSI(RO)_— ; EACE THe DRIVE 

1931 007540 11 001220 o00010 MOVB B,RHCS2(RO) ;SELECT PORT #8 

1g33 pores BISvER poootT go0000 CLR RADSLURD) an) Reece THE DRIVE THROUGH PORT "B" 

1934 0907560 BtSSEp rene 000000 3°RHCS1(RO)  $RELEASE THE DRIVE 

1935 007566 113760 001216 OO00i0 MOVB ta, RHCS2(RO) *:SELECT 

1936 007574 013737 OO1216 O0i¢eb MOV PORTA, PTNBR SHOVE PORT apprese TO LOCATION FOR TYPEOUT 
133 007602 013737 OOl216 001230 MOV PORTA,SEIZPT ' ;SEIZING PORT’S ADDRESS 

ioaa H SAN AN UNLOAD COMMAND THROUGH PORT Re 
1941 / 

1942 097610 012760 000003 ocDD000 MOV 83,RHCSI(RO) | ;ISSUE AN UNLOAD COMMAND THROUGH PORT A 
1943 007616 013737 O012S52 O01246 MOV TIMEAP, WATCH sit MEOUT ONESHOT VALUE + 25% 

1944 007624 005727 O01c%6 1S: TST WATCH *FINISHED TIMEOUT ? 

1946 007630 001375 BNE 1$ BR IF NOT 

eat4 $ ae tat Seedel Ok Ce eee ee es Dae 
1949 

1950 007632 005037 001236 CLR CKERR CLEAR THE *CHECK ERROR’ INDICATOR 

1951 007636 016037 O00000 001126 NOV RHCS1(RO) SBDDAT” GET CONTENTS OF RHCS1 

1ge3 porees penga? Bolies tee AbD Cc ae Foret REGISTER, AooRESS OF ERROR MESSAGE 
1954 rina 012737 OO400! 001124 MOV sDvAt GO,$GDDAT :WHAT Recre SHOULD BE 

1955 013737 901126 O01156 MOV T,STMPO § :MOVE REGISTER CONTENTS TO ’STMPO’ 
1956 007672 042737 173776 001156 BIC arcaon! gSIIFO sSAVE SPECIFIED BITS 

1957 023737 001124 001156 CMP S$GDDAT, ;COMPARE THE BITS 

1958 007706 001414 BEQ 64S : 

1959 007710 013737 001126 001166 MOV SBDDAT,STMPY COPY BAD DATA’ 

1960 007716 042737 OO04001 001166 BIC #4001, STMP4 “CLEAR THE MASKED BITS 

1961 007724 053737 OO1166 001124 BIS STMP4,;SGDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 





[aco 


sere =~ ewe ee s+ ~“* - - os o ° ~owees. 


‘ 


fe 
wit 


oo GBOO0O0000000 


He maaveuneee 


Sao EAC Rennes ae 
= 


~ 
QOooOoooooono 
0 0 Fh ee 
Oodoono000nm 
= 0 


RLBRVE 


0+ Ob OB -2 << &-< & = HO & 2 H&B 2 BF Bh — 0 -< & 0B = & = P90 -— f-— BH d 1 2 H-2 OH Ho H = Ho Ho 


eeicieisiieicisist hee eh 
Z 
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te 
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200000 
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T TEST UNLOAD COMMAND THROUGH PORT 


ERROR 11 ; TYPE MESSAGE 1 





we Con CKERR :SET THE RECISTER COMPARE ERROR INDICATOR 
ro CKERR sCLEAR THE 'C CK ERROR’ INDICATOR 
001126 MOV RHOS1 (RO), $80 SBDDAT’ <GET CONT ONTENT OF RHOS1 
001122 HOV Fok Chie SS OF ERROR MESSAGE 
001124 MOV ee 'OPRIVV “WHAT REGISTER SHOULD BE 
001156 70st cd é STER CONTENTS TO *$TMPO’ 
1156 BIC SIMO a IED BI 
001156 ch $25 
001166 MOV . STMPY 1 "BAD DATA’ 
1166 BIC 8177700, STMP4 :¢ THE MASKED BITS 
001124 BIS a $I , SCDDAT + * WITH GOOD DATA FOR TYPEOUT 
COM CKERR CET ate G ster COMPARE ERROR INDICATOR 
000240 65S: NOP 
194400 022564 TYPE STANDBY ; TYPE TANDBY_ME 
01374% 001216 MOV PORTA, -(SP) s Ee A FOR TYPE 
$3 THE PORT NUMBER 
104410 TYPDS >2G0 =-DECIMAL ASCII WITH SIGN 
104400 001201 TYPE ,SCRLF > CR@LF 
g oBSSFEEYSELSSE PASSE KEL EREEESELREFS EA LSKR SERRE FRSS SALE LEAL LF ERSESELEEELEESE 
“WAIT FOR ’MOL’ TO SET 
010000 o00012 2s: IT SNOL,RHOSI(RO) ;WAIT FOR MOL TO 
rate Q i HOOP UNTIL ° nou SETS, 
012737 003720 001 MOV $2000. WATCH ;SETUP A 
1 001 900010 MOVB PORTB, RHCS2(RO) CT -_s 
001 001 MOV PORTB’ PTNBR shove T ADDRESS To LOCATION FOR TYPEOUT 
12 3S: TST RHOS1{RO) sDR TIMEDOUT 
001 BNE 4§ pry IT HAS 
006/32 001246 TST WATCH fe SECONDS ELAPSED ? 
rien ERE oR 6 BB imeour AFTER 2 SECONDS 
je tttoeeeeeeeeeeecencansseeenneneeeeeenensnsnnennneeeeeeensssaaannnn 
sVERIFY THAT THE DRIVE IS IN NEUTRAL 
tee ; 001122 ah Se eRRoe FOR TO EEOUT 
0011 ADD RO ADD Te 1/0 ADDRESS 
ul 1 : 001124 MOV rat abl: afer a ISON CONSTANT 
ot il Hove ey ie ue STATUS REGISTER FROM PORT A. 
1 11 1156 MOV TMPO? 
Os 56 BIC sare : on T BITS FROM THE COPY 
Gt I 001164 Hove Rosa $10 | The + star TUS REGISTER FROM PORT B. 
1 Oi 11 MOV $1 OPY I 
1001 01169 BIC Maite oT STMP1 ;CLEAR POR WT EPENDENT BITS FROM THE COPY 
001156 O01! CMP STnPO, StH 71S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
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ONTROLLER LOGIC TEST - 


TEST UNLOAD COMMAND THROUGH PORT A 


RPOS DUAL _& 
TS 


a aii 
DERPQA. P 


M-1 





7 
-fie = : 
Heat F |. : 
Be ef ate toe 
= See es bse 4B 
eiea tee EGE 8 FS 
ee 
ee 
y PBeig “Seg eet ote 
Ng-— a> rab 3 % 
Teta ae ees 
tm a Ot cian ae ia 
sian aetna doatl Seat ttien 
- 2 _2 - 33 i Ep 
os o = 
ce te Sie Bs 
oO fat] SOMaeas 4 ves — 
gig nessirstsig: Pecan. Peas, 
S 
erpiese Shane Soupk sponge ancecis 
3 gh 8 ees 
62 HS Y eg age 
eo ee 
4 ORR S559 f USER SER 
a Saas gas § goes 


eee 
_ es Sire Seed 


Zeneeeee 


HbR tod SSSSSSSSSSsssds3seb66600655 


¢  RELEELEELLELELLELEL LEAL ELEES 


; CHECK ‘ee ATTENTION BITS 


S 
2 5 
iB, jth 
2 SS 
Pes Fb EE 
ieee th ae, 
e z. oe: ex 3 


te seteek Sarat! bo Ogs 
ied etegratsthy yes 
o "E 


eo il 


—c—- wm = 


peveencateae-s 


SauengusvegsovensSasacg 


fen EE aa 


peare’ 


=. x 
S489 Re BAR | Se eR 
= a gas a _ is Be 


ote 
EE ashi iriean tah Auten nantes 


DoODOOOOOOOOOoOOOOOOOOoOOoO 
Q000000O 





SSR OIORSt Rah ERR EERE AEE 








ee ae en mn | ee a em ne i ne a ee 





DERPOA.P11 Té TEST UNLORD COMMAND THROUGH PORT 
MOV oare a AT s WHAT REGIST 
cI 


SA Fags 1 ree 


BIC ben naire sh 


8 
5 
ges seas § 
ee BERT 


2074 010634 
ee 
1 CMP 3¢ 
itees 1373? ll oa T, STMPY tee oY BA DATA’ 
15s 1 ate selon 7m > CLEAR ae MASKED BITS 
iort5 053737 001166 BIS ie STMPS, T i OR. WITH b DATA FOR TYPEOUT 
1071 ieeols 001236 COM CKERR :SET He REGISTER COMPARE ERROR INDICATOR 
eos 10716 00240 72$: NOP 
eee ae Taek OR Man eee eee 
wt ; "VV" FOR EACH PORT 
5986 919720 012760 000011 oo0000 MOV 811,RHCS1(RO)  ;CLEAR THE DRIVE 
2090 107e6 Gere are 000000 HOV eel, 1(RO) iReLEaee Te PRESET THROUGH PORT A 
soeo nyt TT S7ED pore reat MOVB peat Br eneser RO) * SELEC PORT B. 
e033 010750 Sere 000021 000000 HOV 21 RACSI (AO) , ie, A, READIN PRESET THROUGH PORT 8 
soe Bt ooen 91 S7e5 Ba0013 reais MOV $13, RHCS1 (RO) : fhe DRIVE 
2097 sIF ERROR OCCURED, CHECK FOR LOOP ON TEST 
oon 010772 105737 001103 TSTB = SERFLG sDID AN ERROR OCCUR ? 
010776 00141 BEQ TST7 fF 
gi -901000 177570 IT , SUR F tel ON ERROR SET (SWR9=1) 
iin ie 001103 4 seh : 
Btiois hres? 001170 CLR STIMES tte wie ERROR ic ERATION COUNT 
011020 000177 170064 IMP >GO TO THE L 
5 FLLELLLERELELELELAELELELLLEES PRRSSSPEL EE SALSSREPSESRERELAESERES 
j TEST 7 TEST UNLOAD COMMAND THROUGH PORT B 


SEVERIFY THAT THE UNLOAD COMMAND FUNCTIONS PROPERLY AND THAT A PORT 
TIMEOUT WILL NOT OCCUR WHILE THE °GO’ BIT IS SET. 


A. ISSUE AN UNLOAD COMMAND THROUGH PORT 8; VERIFY THAT THE 
DRIVE IS SEIZED. 


B. TIMEOUT IN + 25%; VERIFY THAT THE DRIVE 

Does Not Tite OT, VERIFY Ther The THE °GO’ BIT 1s STILL SET AND 
ORY” AND *PIP’ ARE NOT SET 

C. REQUEST IrMAT THE OPERATOR PRESS THE 'STANDBY’ BUTTON ON THE DRIVE. 

D. WHEN THE DR mo 1h. ply Fon Port Bis Reser, Tat THe 


BY PORT B 


PORT B IS 
BTTENTION BIT FOR Fon Fo eT BI of THE ATTENTION 
FOR PORT A 


Re a LJP 


ATTENTION BIT FOR PORT B IS STILL SET, AND THAT Witte ATTENTION 


rururururururororururornorururororurorurururorurorurururury 
2 0s 0 2 0s ao Fs bene Bn ban 2 Fo Pw Pe be Pan he 


SRV RR IONS ae lon con CSR VRR2oRHS 


= bh B= BB a Fb hh ee 


ie RPOY QUAL CONTROLLER LOGIC TEST = PART ., meres 27(732) OS-0CT-76 14:30 PAGE 43 
{ 
| 
i 
| 
| 





iit Ue ei ee ER Ty A : 








e 
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ST UNLOAD COMMAND 8 


a 
4 


8 
& 


: 


SREGSESSETREENES | 


Po Bo hh - +P Of oP + bs h < B- h-o Ha apo 


Dae fan Pn Pas Pow Pe fhm fee fo ho ee 


OoO000000000 
oo0o0r 


p= 02 p—2 pe ge 


dad 


CUO UNDE ee 
4 
8 


Qoo0o0000000 

Bas 2 Peo fac he & 2 f= ps Fh Pe 

ee ee or rr 

Be ft Bt bm Fe Fb Fo 
@ 

oOO0r--o0o0 


SHLESLREVKS 





0 b= po pe pe 


meas 


pas bat bat ba bt hf -2 Re be Be Fs ee = be 8 Bt ee Dae me bs fe Be Pt Bee 


Turororurornorurorururorfunorurororururvrurororurururofurururorororororurururorurorufururururururorurururofururuoru 


RIEBRLBIadatadZIn-SSeCFAREGAH|S 


en te a ee 
= 2 0 Os = bn Fo en ee fe 
oo oO 
| en aan NB 


| 








THROUGH PORT 
BiT FOR PORT A IS NOT SET. 
F. VERIFY THAT THE *VV’ BIT FOR PORT A IS NOT SET. 
; rs G. ISSUE A PACK ACKNOWLEDGE INSTRUCTION THROUGH BOTH PORTS. 
7 GHHEHHEHH}EHEHEHHHEHHEHHHEHH HEHEHE HEHEHE 





$517: 
SCOPE sINITIALIZE THE SCOPE HANDLER 
ST KyBCTL FORMING ONLY SINGLE TESTS ” 
BFL 1s ‘ BR IF JUST TERED TEST 
1S: MOV #-1 KYBCTL a SINGLE TES Tw reaToe 
2s: MOVE #7, $TSTNM 
MOV aTEST?, PADR tan ON TEST ADDRESS 
aTEST StPeRR toaD LOOP ON ERROR ADDRESS 
MOV o etihes +3D0 1 ITERATION 


. - LERESRSEALERESRALESESRE EAE SALAAR AA LSAAAEERARELAARERARELARELALELEELAAEE 
SEND OF OF SCOPE’ SETUP - START OF MAIN TEST 








TEST?: 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA RHCS2(RO) ; T Te OR te 
CLR RHDS t 
MOV #11, Leo) : 
MOV B13 RHCSI(RO)  ; Soe 
MOVE -— PORT RRese CRO 3 
CLR RHDS1(RO) ; Ge THROUGH PORT ’B’ 
MOV S11,RHCSI(RO) ; 
MOV #1 He ) ;RELER 
ee iB, — 8 1 LOCATION FOR TYPEOUT 
MOV PORTE’ SE Thea shove PO ING ADDRESS 
. REL LSESKE SRERELLERLKELESERLS REESE 
BO AN UNLOAD COMMAND THROUGH PORT B 
MOV #3, RHCS1(RO) ‘Tieton tates ase “Or 8 
MOV urea WATCH ONESHOT VALUE + 25% 
1S: st TIMEOUT ? 


. seeaayeeueeeeeseerensevenseeeuserecuneeenereeueceaneeennnennnnnnainass 
tis THE STATUS OK ? 

CLR sCLEAR THE "CHECK ERROR’ INDICATOR 

MOV (RO), SBDDAT’ ;GET OF RHCS1 

HOY 1 REG S 30° ERROR MESSAGE 


spieiGo tamer HAT REGISTER SOULE EE aon 


i 


PHO Ps Fs fh 6 hp pe 


QOOOOOOOMS0O000000:30000000000 


ga bas GO Bad Pw fas Bee Gast 2 be ban fae pe pe Be Bat b= b= Boe fs fe Be Fa hm Ps pi ge 


(eat boo BH2 BBs Bas Bot b= am han Bone Go fs Pas baw P= Few os er 


Ria Sea aa ana eeeereenrereeee 
K D.WO NOUN FWwMRHo BIRRESCLESBSR 
oo 


4g 


SRZ 


~ 
<£ 
~ 
£ 


Shoes 


S88 8888 88 
- = 
Bee bee pe bh be ba pee 


Sr 
Sto 


2 


Oo, 


Eel 


HB FERRBRTRISIROESPAONG SS ee 


fi 


—) 


PTNBR 
pebet tee) 
4g 

WATCH 

3$ 

& 


Saas 


8 
x 


: 


<= 


Shoat, gfrPO. 
64S 


$001 fred 
STHPS, SGDDAT 


SELLA as 
Seta it 
sei 


le 
CKERR 


pont, =(SP) 


» SCRLF 


s RSELESPELSSELS SERRE LESRASLE LE ESE SRERERLE LEZ SKRERESRE SE SESE LER US RAKE KSES 
hart FOR ’MOL’ TO SET 


sao, RHDS1 (RO) 


im acest RO) ise 8 sage STALL 


ss FELLELKLLKLLLLALLLLLELLRLELLELARLELALLLLALLLL LL LEAL LAARELELALLALL RELL ELE 


; VERIFY THAT THE DRIVE IS IN NEUTRAL 





“i : 


‘Son cone SS 
’ SON CONSTANT 


RAB fone it ie i TATUS REGISTER FROM PORT A. 






‘sconpeRE The BIYS 


‘ai DATA‘ 
oe one Dal Foe reco 


ane THE REGISTER COMPARE ERROR INDICATOR 
THE 'CHECK ERROR’ INDICATOR 


ot ERIE ete ERROR MESSAGE 
iBbat went REGISTER, SHOULD BE 


s MOVE REATCTER CONTENTS TO *STMPO’ 


eae ie 
ieoet * BA DATA’ 
‘CLEAR 


5°OR’ WITH O00 G00 DATA F FOR TYPEOUT 
;TYPE_MESSAGE 
3SET THE RECISTE COMPARE ERROR INDICATOR 


SAVE PORTE FOR TVPESUT 


; TYPE T 
; 480 TYPES-DECIMAL, ASC ASCII WITH SIGN 






sMArT FOR MOL TO SET 
OOP UNTIL ’ SE 


Trepout TOL LOCATION FOR TYPEOUT 


I 
ELAPSED ? 
;BR IF NO 
;NO TIMEOUT AFTER 2 SECONDS 


ERROR * INDICATOR 
‘FORA THe THE, AOORESS OF RHDS1 FOR TYPEOUT 


‘Copy IT INTO ’STMPO’ 
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beabba Brie a, RES HROUGH 
Ba alte f rae 5 Bic sOTALWY, ST it patsy PORT PEPENDENT BITS FROM THE COPY 
11610 01 I 1164 MOV § RHOSIURO}.STMP3 ;GET THE DRIVE STATUS REGISTER F.UM PORT B. 
cre Sue Bigs FELIS) BEES BE Mtefl"Gte | ela oll Berth ers ran 
se Less l bor 10 ane STnPO, StHPL a i Bite POTSTER THE SAME F 5 BOTH PORTS ? 
=H: ’ 
aoe Be ever pups, g sm 
1iese 012036 "P t BYPASS 
Seed filbee Bier POlles patie Ges: fey STMPEABPODET SET VE PRRSTEVE a0 Dar BTR FOR FREON PERSIE a 
ese ott oner37 Blige rey Sonpg oe RO) See it Siar "EQ 0 FROM PORT A. 
i 13737 1216 001 nov TA,P ; FING PO F DRIVE NOT IN NEUTRAL 
SD a ey cm a OE 
sob] O11 730 005737 0011 ST STMP1’ HEE ir TATUS EO ZERO FROM PORT B 
ees attra 016737 177777 001242 67S: HOV 8-1, RELERR vie * INDICATOR 
1176 ot 001162 001126 68S: MOV STHPe, SBDDAT sO FOR BIT FAILURES WHEN RHDS1 READ 
ooee bli vee Buee3? 10 o106 bat ies Bie sata WV SIME 1B PE Bt on BIT OR WV BIT 
ces Giles Sniaty an oF Om gFR Pont 
1 1 
S575 DistiO G1ara7 boleeo polsee © «© HOV PORTR'PTNGR,ICHANGE PORT NUMBER uTUNeS ~ FROM PORT B.. 
eer 12016 490196 001164 BIC SATA! VV, STMPS 5 cK ATTN N BIT. OR y. BIT 
: 9 
gem bistet tea737 1124 OO1164 che SGDDAT, STMP3 BA, 
012034 104037 ERROR Me REPORT ‘THE ERROR 
012036 000240 70$: NOP 
a s , RHRELALLLLELLLLLLLLLELELLELALELALELLELELELL ELLE ELLE LE RELLELLLE LL LE LLEEE 
*CHECK THE ATTENTION BITS 
Oise o15737 BBiEle Boose Hove PORTA’ PTNGR ‘BINA oP Aes es TO_LOCATION FOR TYPEOUT 
fice fide Bae mu RY BERS ALERT RICE con re 
gem Ot 1 a6 0011 1 iF RE 5 DORESS - ERROR MESSAGE 
Sa a ee 
15155 Bolten BOLiee RRS is Ea Re 
ee Sie Ooldid tet (OOH fo OCs Rr OK 
sexe iciw Glare couse ootike §=— OL Eeboer emus CDP “HO DATE arr 
eco bisiee 7 001166 O01124 BIS STHPS, SGDOAT jr ORe WITH DATA FOR TYPEOUT 
eee bisie4 G0si37 001236 hi Con dkeRR :SET T STER COMPARE ERROR INDICATOR 





8 
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UML HROUGH PORT B 


fur 
ed 


3% 


ees 
Be 


e 

£ 
S88 S888 8 
Se aan 


SSR URES ASRt 


by 


BURR NiNiaiaen 


i Gs RS 


POO a aaa OO DOO BE 


bs 
A 


8 
x 





MOVB § PORTB,RHCS2(RO) ;SELECT PORT. 
MOV PORTB,PTNBR ;MOVE PORT Bt LOCATION FOR TYPEOUT 
CLR CLEAR 7 REO ERROR’ INDICATOR 
NOV ae The 1 GoMTENT ee BF ERROR MESSAGE 
CE lt ae 
Boy SHOOT SITES wie ee pane emda 
BIC 8tCATA, ST FIED BITS 
CMP GDOAT, STHPO sC 
BEQ :BR nro ee 
MOV SBODAT,STMPY  ;COPY ’ barn 
ve #ATA, STMPY * CLEAR MASKED BITS 
1S STMP4,SGDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
ERROR : TYPE fe eee 
Con CKERR SET REGISTER COMPARE ERROR INDICATOR 
. Hite ieletlal-}-J-tel-t-5-Srtal-$-5-5- lalallala lalalalaalalabaialaialalaialaialalaiaialeiaialaisiaisleiaieisiaielsicisisinisisicieiel 
eer ’VV’ FOR EACH PORT 
MOV #11,RHCSI(RO)  ;CLEAR THE DRIVE 
MOV #21; 1(R9) D0 A IN PRESET THROUGH PORT B 
MOV #13 (RO)  $REL DR 
Move sw PORTA (RO) *;SELECT PORT A 
MOV #21 RACSI CRO) 00, READIN PRESET THROUGH PORT A 
MOV afte (RO) } "EMT22” 
MOV #13,RHCSI(RO)  ;RELEASE THE DRIVE 
IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
STB ¢ sDID AN ERROR OCCUR ? 
Q TST *-BR IF NOT 
gir #SW09, SWR ‘Gee if LOOP ON ERROR SET (SWR9=1) 
Q TSTIO >:BR IF_NOT 
CLRB  SERFLG ;CLEAR THE ERROR FLAG 
CLR STIMES *CLEAR THE MAX ITERATION COUNT 
INP JSLPERR *GO TO THE LOOP ADDRESS 


5 SEE AEE AEE EE ERR RRR AERA EERE EERE EEE EERE HERE LERELES 


jHTEST 10 TEST "CONTROLLER SELECT’ SWITCH THROUGH PORT A DURING UNLOAD 


SAVERIFY THAT THE ."CONTROLLER SELECT’ SWITCH IS INHIBITED WHEN THE 
RPO4 UNLOAD COMMAND. 


PLES ee eres eeaeniay 








IS CYCLED DOWN BY AN UNL 
ISSUE AN UNLOAD COMMAND THROUGH PORT A. 
QUEST THAT QreRATOR ITCH THE CONTROLLER SELECT’ SWITCH 
THE ’S 


TO A AND THEN ANDBY’ BUTTON. 

WAIT FOR MOL’ TO SET BY MONITORI nee T 

Be HEN THe RIVE CyGteD UP" BL HAS SET) ISSUE 
COMMAND T PORT A. 
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;# D. VERIFY THAT THE DRIVE CAN BE ACCESSED BY BOTH PORTS AND THAT 


i 


i THE DRIVE IS STILL IN NEUTRAL. 

if E. REQUEST THAT THE OPERATOR RETURN THE ’CONTROLLER SELECT’ SWITCH 

; 

;* 
1241 Me cen IS BEER 
BEE OO coisa BR gen = RUTAIE GE RUSE 
Ries Bae Bg 
ee ia te Be Lareeta pce 
pistes Brads SO55ES coin is: MOV. ALC KYBCTL NOTCAT 
piclss Atses7 prouee foie OHO cee i TEST NHOP ON TEST ADDRESS 
pieiee psoas et pottTe MOV #TESTIO;SLPERR LOAD LOOP ON ADDRESS 
012460 012737 000001 001170 MOV #1,STINES *:D0 1 ITERATI 


Hho) -b- lah h-b-j-b-t-}iah tthe -laladah-5-5-5-5- tah tet tirtal-t-h-5 halal lellalalalalalalalalalaiaiaaiaiaalsiaia‘eiaieiel 
tEND OF *SCOPE’ SETUP - START OF MAIN TEST 


012466 TEST10: 
;CLEAR ATTENTION BITS FOR BOTH PORTS 








Pear Rrnrnreti tipi Re RER PARRA ceded ea sol ia 


12466 113760 001216 MOVE §PORTA,RHCS2(RO) ;SELECT:PORT #A 
12474 005060 000012 CLR RHDS1{RD) SEIZE THE DRIVE 
12500 tere See MOV $11, RHCS1(RO) pe ts i 
1 1 MOV #1 Breer ) 3 Shite 
12514 il 1 MOVB RACSECRO) : 
12522 I CLR RHDS1 (RO) : THE DRIVE THROUGH PORT ’B’ 
12526 012760 000011 MOV $11,RHCSI(RO)  ;ISSUE DRIVE CLEAR 
1 01 90091 MOV a3 (80) : THE DRIVE 
Giese jie Oolett RP Ba a ho HAT ies 
! i 00121 HOY PORTA, ETNGR N Peers AB LOCATION FOR TYPEOUT 
ieee ogonus MOV ¥ I( ; THROUGH PORT A 
: 1 Tyee SHICHA ;SUITCH TO Po race 
1Sre bia area MOV PORTA, -(SP) aT SAVE. PORT PORTA ston TY TYPEOUT 
prep ibwdee 001201 TYPE, SCRLE ge rec mT oon 
12614 neat 010000 1S: BIT BMOL,RHDSI(RO) ;TEST MOL 
rl o2768 BEQ 1$ ail *BR IF NO 
i 15765 Bonnet fy 6 SSERKetCRDs § ETeeUE @ ir 
12640 012760 000013 MOV #13,RHCSI(RO) RELEASE 
VERIFY THAT THE DRIVE IS IN NEUTRAL 
piepes BNeee, BBAeIS oo1l22 cht REHBSt seoaor HFORA THe aODREES OF FebSL pig Wabi 
012660 060037 001122 ADD RO, SBDADR ADD THE I 
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i EL a Oe SGODAT ;COMPARISON CONSTANT 


nove ROS 0) § 1HP2 eH tae STATUS REGISTER FROM PORT A 
MOV STMP, eres 
BIC nararty by NDENT BITS FROM THE COPY 
HOV RHOSLURO) STNPS en + Ive’ STATUS REGISTER FROM PORT B. 
BIC BATAIYV. STMPL BITS FROM THE COPY 
CMP SHPO, StP1 is ty fe ot SF ATUS REGISTER THE SAME FROM BOTH PORTS ? 
TS STMPO HREGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 66S BR IF NO 
ERROR 34 34 ; REPORT Srey Tre ee N NEUTRAL QR NOT SEIZED 
64S: MOV SThPe, SBODAT ieeT OP UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
HOV eat i IZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
TSI sBEe IF STATUS EQ 0 FROM PORT A. 
ROV Freee | 12] PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB SORTA’ RebeeCRO) BAD OAT gr — 
st STHPL Fed yarnTus EQ ZERO FROM PORT B. 
65S: MOV a-1,RELERR SET "RELEASE ERROR’ INDICATOR 
66S: Boy Supe, $8008 sO FOR T FAILURES WHEN RHDS1 READ 
I #VV, STMP THe W BIT 
Ry i gifs ok! 
BEQ 675 ;BR IF OK FROM PORT A. 
67S: fo $ie3, seooat ‘ChE CHECK RHDSI FOR BIT FAILURES - FROM PORT B. 
BIC avV, STMP3 BON’ T CHECK THE VV BIT 
CMP SGDDAT,STMP3 § ;SEE IF READ OK FROM PORT B. 
BEQ 68S “BR IF OK 
ion ERROR 37 REPORT THE ERROR 
IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
TSTB © SERFLG sDI 0N ERROR OCCUR 
BY? £3409, SUR *SEE IF LOOP ON ERROR (SWR9=1) 
BFQ, 2s ; ia IF ia 
Shp sri. Gem The GOP Rae" anette 
2s: Ist KyBCTL SI SINGLE Tes et he 
BIT #SW14, SWR :LOO ON Codeine 
Se SB uTCHN BE TURN HL en enect marten 18 “Ae 
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2466 eat 


1 
1 


1 
1 
1 


Beas 


Seagate 


au 


ae 


eat way ant wg rs 
2 
rey 
tT 


TEST 


000004 
001260 

1406 

100002 
B1e7a? 177777 
sists hee 
isa? O1asep 
012737 000001 


we 


Sesec= = 
oOo 
RRRRRE 
: 


001226 


000032 
000000 


ae fee bt be ee 
Ps ame Ps te 


PORTB, RHCS2( 
MOV PORTB,PTNBR ; POR T ADDRESS TO LOCATION FOR TYPEOUT 
MOV 11,RHCSI(RO)’ ;ISSUE A DRIVE CLEAR 
MOV #21'RHCSI(RO)  $ISSUE A READIN PRESET 
MOV #FMt22. RHOF (RO) SET “ENT ee 
MOV #13 RHCSI(RO) RELEASE PORT B 
BR TSTl 260 TO NEXT TEST 
j RERRRRRRERRALEERLERAALALAAAALERE ALAS LASER LAER ELA L AER LAER EEE 
. TEST 11 TEST ’CONTROLLER SELECT’ SWITCH THROUGH PORT 8 DURING UNLOAD 
S SVERIFY THAT THE *CONTROLLER SELECT’ SWITCH IS INHIBITED WHEN THE 
ii RPOY IS CYCLED DOWN BY AN UNLOAD COMMAND. 
i A. ISSUE AN UNLOAD COMMAND THROUGH PORT B. 
?# B. REQUEST THAT THE OPERATOR SWITCH THE “CONTROLLER SELECT’ SWITCH 
3s TO B AND THEN PRESS THE ’STANDBY’ BUTTON 
:# C. WAIT FOR ’MOL’ TO SET BY MONITORING RHDS1 THROUGH PORT 
2 B. WHEN THE DRIVE HAS CYCLED UP (’MOL’ HAS SET), ISSUE 
ii RELEASE COMMAND THROUGH PORT B. 
7% D. VERIFY THAT THE DRIVE CAN BE ACCESSED BY BOTH PORTS AND THAT 
ii THE DRIVE IS STILL IN NEUTRAL. 
ii E. REQUEST THAT THE OPERATOR RETURN THE ’CONTROLLER SELECT’ SWITCH 
: 2 
°& 
H  saaggegeen mesa = ~-rainiense ore gpnpanee iene ri tramerme c~ 
" sINITIALIZE THE SCOPE HANDLER 
TST KYBCTL BER ORRING ONLY SINGLE TESTS ? 
BEQ 2s 
BPL is : *BR IF JUST ENTERED TEST 
1S: MOV $-1, KYBCTL ere SINGLET Teer INDICATOR 
Ss BF se NOOE ON TEST ADDRESS 
HOY STESTIT acpERR Hi LOOP ON ADDRESS 
MOV #1,STIMES *3D0 1 ITERATION 
: AND OF SCOPE’ SETUP © START OF MAIN TEST 
END OF * SETUP - START OF MAIN TEST 
TESTL1: 
CLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA,RHCS2(RO) ;SELECT PORT #A 
YE amy TELE uP Ea 
MOV #13’ RHCS1(RO) RELEASE it DRIVE 
PORTB,RHCS2(RO) ;SELECT PORT #8 : 


-OCT-76 14:30 PAGE SO 
ING UNLOAD 


os 

DUR 
) SELECT PORT B 
* MOVE 


MOVB 
CLR HROUGH PORT °B’ 
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DERPQA.P11 Til TEST ’CONTROLLER SELECT’ SWITCH THROUGH PORT B DURING UNLOAD 


RV, SIAROESLCEB AECERE HE Bate 





3432 MOVB CT POR 
bis V BORE, fa "hove. es TO LOCATION FOR TYPEOUT 

MOV PORTB: SEI I ING ADDRESS 
MOV #3, RHCS1(RO * ISSUE AN UNLOAD COMMAND THROUGH PORT B 


TYPE Mac SHITCH 10 Fo PORT T 8. MESSAGE 





01 TYPE STANDBY 
tl Paris Le Te aa” 
13476 TYPDS ::CO TYPE--DECIMAL ASCII WITH SIGN 
TYPE F 
pi eeos 1S: BIT ROL SRHDSI (ROD FY on 
013512 BEQ 1$ BR IF NOT SET 
13514 MOV $11,RHCSI(RO) ISSUE A DRIVE CLEAR 
1 MOV 821'RHCS1(RO) ISSUE A READIN PRESET 
013530 MOV #13;RHCSI(RO) RELEASE THE DRIVE 


;VERIFY THAT THE DRIVE IS IN NEUTRAL 





SRS a Waa 
2 
ge 


2504 
Sey 
5234 
5239 
2539 
a 
seus 13536 001242 CLR RELERR ;CLEAR THE ’RELEASE ERROR ’ INDICATOR 
2543 013542 l2 001122 MOV sRHDS SBDADR FORM te | ADDRESS OF RHDSI FOR TYPEOUT 
Seqc StF beneony Bont _jGOMeRISON CONSTANT 
& 7 eas oooks 011 2 Nove Prrert ) thee : eer ite ol ve" TATUS REGISTER FROM PORT A 
Seu2 pt seee 1 pat ee MOV goes A t Repy ot 3 : 
2549 013604 100100 001156 BIC SATA! VV, STMPO iCLEAR PORT DEPENDENT BITS FROM THE COPY 
013612 001220 000010 MOVB  PORTB,RHCS2(RO) ;SELECT PORT 8. 
Eas O1sbe0 000012 001164 MOV HDS RO) STMP3 :GET THE ORI STATUS REGISTER FROM PORT B. 
1 001164 O01166 MOV MP3, STMPI *COPY IT INTO ’STMPL’ 
2553 013634 100100 001160 BIC arate STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
25c4 13642 001156 001160 CMP STMPO, STMP1 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
2555 01 BNE 64S NOT 
gb5b Ol sbbe 001156 TST STMPO ;REGISTERS ARE THE SAME: ARE THEY ZERO ? 
2558 1SEEp ETE OR g6s sR IF T IN TRAL QR NOT SEIZED 
2559 013662 14046 IMP 68S Breas sl a 
2560 013565 1162 001126 64S: MOV STMP2,SBDDAT  ;SET UP oho DATA EGR sERROR MESSAGE 
2561 013574 001220 001226 MOV PORTB,PTNBR +E TING POR peat OE TEST SHOWS DRIVE NOT IN NEUTRAL 
e5be ot go 1¢20 000010 MOVB  PORTB,RHCS2(RO) ;SELECT PORT 
re 5 re TST ST *SEE IF STATUS EQ O FROM PORT A. 
2564 013714 001414 BEQ 65 BR IF ZERO 
2565 013716 013737 001216 001226 MOV PORTA, PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
ied 01 01 64 O01! MOV STHP3, SEDDAT >*BAD DATA’ FOR ERROR TYPE OUT 
B35] 1 il 1216 00001 MOVB TA,RHCS2(RO) 3SELECT PORT A. 
2568 013740 001160 TST STMP1 *SEE IF STATUS EQ ZERO FROM PORT 8B. 
e570 O13 We 177777 ool242 65S a tT RELERR ce FRE ft * INDICATOR 
1 138 104016 "ERROR 16’ TYPE ERROR Negcdce, 16 
2572 O01 001162 001126 66%: MOV STMP2,SBDDAT  ;LOOK FOR BIT FAILURES WHEN RHDS1 READ 
gor 1 13737 O01216 001226 MOV PORTA, PTNBR “CHANGE PORT NUMBER 
1 2737 000100 001162 BIC avV, STMP2 DON’T CHECK THE W BIT 
gor 1 023737 O011e4 O01i62 CMP SGDDAT,STMP2  ;ALL BITS OK ? 
2576 O14006 001401 7$ BR IF OK FROM PORT A. 
2577 014010 104037 ERROR 37 *REPORT ERROR 
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Til TEST "CONTROLLER SELECT’ SWITCH THROUGH PORT B DURING UNL 
013737 001164 001126 67%: MoV STMP3,SBDDAT § ;CHECK RHDS1 FOR BIT FAILURES - FROM PORT B. 
013737 O0l220 001226 MOV PORTB.PTNBR s CHANGE PORT 
ie? 600190 001164 BIC #VV, STMPS DON’T CHECK THE VV v BIT 
1124 OO1164 CMP SGDDAT,STMP3 § ;SEE IF READ OK FROM PORT e. 
001401 BEQ 68S BR IF OK 
104037 ERROR 37 *REPORT THE ERROR 
900240 68$: NOP | 
IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
105737 001103 TSTB  SERFLG sDID, aN ERROR OCCUR 
745 001000 177570 ai =e09 SUR E IF NO ON ERROR (SWR9=1) 
if . = e J wegen 7 
1 001103 CLRB © SERFLG THE ERROR FLAG 
005037 001170 CLR STIMES CTE AR THE MAX ITERATION COUNT 
000177 165006 IMP JSLPERR 560 TO THE LOOP ADDRESS 
032737 O40000 177570 2S: BIT #SW14, SWR *LOOP ON TEST 
001002 BNE BR IF NooBTNG. 
104400 022707 ~ TYPE , SWTCHN RETURN CONTROLLER SELECT SWITCH TO ’A/B’ 
113760 001216 a MOVB PORTA,RHCS2(RO) ;SELECT PORT A 
13737 O001e16 001226 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TOL LOCATION FOR TYPEOUT 
Te D bobost Mann Nov #11, RACSI (RO) i Tte A READ EN PRES PRESET 
Bt Sen pee 000032 MOV #FMt22, RHOF (RO) CET TEMT22’ 
012760 000013 o00000 MOV #13 RHCSI(RO)  ;RELEASE PORT 
000400 sTle *:G0 TO NEXT TEST 
CE EET GIMrnIn LEN Gn) RET? Gotten fair Gono 
xTEST 12 TEST *CONTROLLER SELECT’ SWITCH, DRIVE CYCLED UP 
test THE OPERATION OF THE ’CONTROLLER SELECT’ SWITCH (DRIVE CYCLED UP). 
i A. SWITCH TO CONTROLLER ’A’ POSITION. VERIFY THAT THE DRIVE IS IN 
= NEUTRAL AND THAT THE STATUS BITS IN RHDS1, AS READ THROUGH BOTH 
ii PORTS, ARE CORRECT. 
2% B. SWITCH TO CONTROLLER ’B’ POSITION. VERIFY THAT THE DRIVE IS IN 
2 NEUTRAL AND THAT THE STATUS BITS IN RHDS1, AS READ THROUGH BOTH 
ii PORTS, ARE CORRECT. 
*# (C. RETURN THE ’CONTROLLER SELECT’ SWITCH TO THE ’A/B’ POSITION. VERIFY 
is THE DRIVE STATE. 
Ce ihe 
oo0004 * SCOPE sINITIALIZE THE SCOPE HANDLER 
005737 001260 TST KYBCTL : NG ONLY SINGLE TESTS ? 
001406 BEQ 2s I 
eae BNP bec Br AF JUST EN NeXT a“ R 
i % datas 001260 15: MOV $-1, KYBCTL ey SI NIST UMBE 
12737 000012 O01i02 2S: MOVE #12; STSTNM TEST AMBER 
12737 014240 001106 MOV . #TEST12,SLPADR LOAD LOOP ON TEST ADDRESS 
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bigrs? Dboodl Gbli70 


Se eel age oh gh) git a attataitatettaerai 
*SCOPE’ SETUP - START OF MAIN TEST 


;CLEAR ATTENTION BITS FOR BOTH PORTS 
PORTA, RHCS2(RO) 
RHDS1(RO) 
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;LOAD LOOP ON ERROR ADDRESS 
;;00 1 ITERATION 











;SELECT_ PORT #A 

;SEIZE THE DRIVE 

s ISSUE DRIVE CLEAR 
DRIVE 





DRIVE CLE 
sRELEASE THE DRIVE 
tBRESS » CONTINUE? 












;CLEAR THE "RELEASE ERROR ’ INDICAT 
sFORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
THE y 0 BASE ADDRESS 






We iter The “DRLve: gray REGISTER FROM PORT A. 
 #SLEBR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 


;GET THE DRIVE STATUS REGISTER FROM PORT B. 
COPY IT INTO *STMP1’ 

:CLEAR PORT DEPENDENT BITS FROM THE COPY 

i]s THE STATUS REGISTER THE SANE FROM BOTH PORTS ? 
sR GISTERS ARE THE SAME: ARE THEY ZERO ? 

REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 

3 BYPASS THE REST OF THE CHECKS 

:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
:SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
:SELECT PORT B. 

iste IF ZSIATUS EQ O FROM PORT A. 

;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
j2BAD DATA’ FOR ERROR TYPE OUT 

{SELECT PORT 

{SEE IF STATUS EQ ZERO FROM PORT B. 


NOT 
SET * RELEASE taal INDICATOR 
CLEAR THE DRIVE 

RELEASE THE DRIVE 














 sssianiriniatieienesienenidaiatpiomabininettinenttl 





URES WHEN RHDS1 FEAD 


ve 


POR 
SS *CONTINUE’ 


;CHECK RHDS1 FOR BIT FAILURES - FROM PORT 6. 
TCH TO °B’ 


;SEE IF READ OK FROM PORT 8. 
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; TYPE ERROR MESSAGE 17 


;6R IF _OK FROM PORT A. 


;CHANGE PORT NUMBER 


;REPORT THE ERROR 


;REPORT ERROR 


;ALL BITS OK ? 


;BR IF OK 


;L00K FOR 


‘PRE 


3C 


BOS 
OGIC TEST - PART 2 MACYIL 27(732) 


LER SELECT’ 


PTNBR 


, STMP2 


t 


DRIVE CYCLED UP 
7 

$tnp2 SBODAT 
PORTA 

$GO0A 

7$ 


SWITCH 


;VERIFY THAT THE DRIVE IS IN NEUTRAL 


— 
re 


8 Od Od O88 8 Od 04 4 4 4 wo 4 oH OG 


OOKV00O0H000000000 


5 RAHRTRRER 


OR ERROR MESSAGE 


EST SHOWS DRIVE NOT IN NEUTRAL 


= 
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5 
= 


REGISTER FROM PORT A. 
TS FROM THE COPY 


BITS FROM THE COFY 


ERROR ’ INDICATOR 
poet ATUS REGISTER FROM PORT B 
I ONTO et ; 


VE_NOT IN re “Cet OR NOT SEIZED 
F TEST SHOWS DRIVE NOT IN NEUTRAL 
OR BIT FAILURES WHEN RHDS1 READ 
;CHECK RHDS1 FOR BIT FAILURES - FROM PORT B. 


: : 
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TEST *CONTROLLER SELECT’ SWITCH, ORIVE CYCLED UP 


001220 O0lee6 
O01ie4 001164 


Qo000000 


SEEEEEE ES ERED SSSA" SS SSREEBEERESASESSEEEES EE EERSSE EPO 


fe jejelejejej=)=)=) 
ed BERRA 


B 
aaa 001260 1S: ie Bie 
bisere nO 
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MOV PORTS, PTNBR sc PORT NUMBER 
CMP ssooAt, STMF3  ;SEE IF READ OK FROM PORT 8. 


BEQ *BR IF OK 
ERROR 37 REPORT THE ERROR 
738: NOP 
TYPE  ,SWTCHN sRETURN SWITCH TO ’A/B’ 
IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
TSTB SERFLG ;D10 an ERROR OCCUR ? 
BEQ ST oe F NOT 
BIT , SUR Hire tf F Rote ON ERROR SET (SWR9=1) 
EQ. 1ST13 : 
cL SERFLG tae ERROR FLAG 
€LR STIMES * CLEAR te MAX ITERATION COUNT 
INP JSLPERR °G0 TO THE LOOP ADDRESS 


J HHHHHHHHHHHHHHHHH HEHEHE HEHE HEHHHHB HEHEHE HE HEHHHHEEE EEE 
jaTEST 13 TEST "CONTROLLER SELECT’ SWITCH LOCKED ON PORT A 


SSTEST THE OPERATION OF THE "CONTROLLER SELECT’ SWITCH (DRIVE CYCLED DOWN). 

;# A. CYCLE THE DRIVE DOWN. 

B. SWITCH TO A POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THA STATUS BITS IN RHDS1, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 

C. SWITCH THE "CONTROLLER SELECT’ SWITCH TO A; CYCLE THE DRIVE UP. 


. WHEN DRIVE CYCLES UP, VERIFY THAT ’VV-A IS RESET, AND 
. THAT TH Oe 3 fet ? : 


SESOOVSSCSSISVessesse Sees 


E. FO sas ag sO IO 


F. VERIFY THAT THE DRIVE CANNO ACCESSED THROUGH PORT B AND 
b0ES ort vet Pe ING TO ACCESS THE DRIVE THROUGH 
» oct teu, TT TO REQUEST BY WRITING 0’S 
INTO 
G. FES 8 stages! A. VERIFY THAY THE 
NS LOCKED ON ON POR 


ages BOSS SS SS SS SS SE SESE SESE SESS SS SE Se OS St Ge 


SEUESHAERCRERESSEERECRESSREERERERER TREE CRRESREEESSREREREEE EEE 


vere ge. RR LIE, 


ie a Teer reer 


: VB Een T TH op 
MOV aF13 80 BAD LOOP ON TEST ADDRESS 
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I 
R SE seLecT® SI TCH LOCKED 


MOV STEST13,SLPERR ;LOAD LOOP ON ERROR ADDRESS 


MOV #1, STIMES D0 1 ITERATION 
AND OF SCOPE’ SETUP n START OF MAIN TEST NN RHEAE ARES 
END OF ’ SETUP - START OF MAIN TEST 
TEST13: 


PORTA, RHC (RO) T 
PORTA; PT rove FORE aporese 0, LOCATION FOR TYPEOUT 
,CYCLED "CYCLE DOWN THE DRIVE’ 


3 oHEFSSESERESLELPLL HS LSPSL FESS SELE REALE LSLESFESSRER BAR LELK EL EL ELE SES ELA LS SRE 
:WAIT FOR MOL’ TO RESET 


1S: BIT sMOL ,RHDS1 (RO) *MOL’ 
1$ ft erie IT F, STILL SET 


* BYCLEL 
TYPE SFeyOLe ip THE DRIVE’ 


s oSSEESELRSSEEEFRELRSLESFZE EEE SSERLKSLSASLERSS EV RESEL SER RRFEKEKEESLLELESE 
:WAIT FOR DRIVE TO CYCLE UP AFTER SWITCH CHANGED 


2s: BIT SMOL,RHDS1(RO) ;TEST *MOL’ AGAIN 


BEG es ;BR IF NOT SET 


s AOTVE 1S CYCLED UP CHECK STATUS THROUGH PORT AE 
:PRIVE IS CYCLED UP, CHECK STATUS THROUGH PORT A 


CLR sCLEAR THE 'CHECK ERROR’ INDICATOR 
MOV (RO), SBDDAT’ -GET OF RHDS1 
MOV sFORM REGIS OF ERROR MESSAGE 
ADD RO 3ADD RH11 ADDRESS 
MOV SATA'MOL'DPRIDRY,SGDDAT : REGISTER SHOULD BE 
MOV T.$ : S TO *S$TMPO’ 
BIC tc i SAVE SPEC FIED BITS 
eae ? ° 
MOV T,STMPY =; "BAD TA’ 
BIC - 8111700,STMPY CLEAR THE MASKED BITS 
I TMP4Y, SCODAT :°OR’ WITH GOOD Dat FOR TYPEOUT 
a. CoH SET at REGISTER COMPARE ERROR INDICATOR 


2 JHHIGIHIHIIEIHIEIHIIEIEHIHIIEHHIHIHIEIHIHHIHIHEIHIHHIHGHIHHHGHIHIIIHEHHEE HE 
VOLUME VALID FOR POR 


TA 
$11,RHCSI(RO) ; A DRIVE CLEAR 
nov rae itt om , HE a A RE EOIN PRESET 
BO RHO 
gs NECK THE DRIVE STATUS THROUGH PORT Be VERIFY THAT NED’ DOES NOT 
CK THE DRIVE RIVE STATUS PORT 8; VERIFY *NED’ DOES NOT 
. SET HE DRIVE IS ACCESSED THROUGH PORT B. 
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>VERIFY THAT DRIVE STAYS LOCKED ON PORT A 


’ INDICATOR 


1 
OF 


aM nae TYPEOUT 
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"LOCKED ON’ PORT 


pSELECT PORT 8 
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TO LOCATION FOR TYPEOUT 


a Oe Pa 
OF 
S : 
ihe BITS 
DATA 
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DUAL _CONTROLLER LOGIC TEST - 
TEST "CONTROLLER SELECT’ SWITCH LOCKED ON POR 


177570 


jATEST 14 


Se @e ee eeee Se ee eewee wee ee 
3 BOC Re oi DRC Re Oi Oe Oe aie ec 
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RROR 24 
OM CKERR 
NOP 


;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
TSTB SERFLG 


PORTA 
IT ah0L, Rats ie 
T ShOL, RHOS1 (RO) 


HOV ty 


MOV 

ee Behe 
Bare 

ny wT 

TYPE 

BR tST14 


HHH HEHEHE 
"CONTROLLER SELECT’ SWITCH LOCKED ON PORT B 


:ATEST THE OPERATION OF THE CONTROLLER SELECT’ SWITCH (DRIVE CYCLED DOWN). 
- CYCLE THE DRIVE DOWN. 
. SWITCH TO CONTROLLER B 


TEST 


PORTS, ARE 


C. SWITCH THE "CONTROLLER SELECT’ SWITCH TO B; CYCLE THE DRIVE UP. 
EYGLES UP, VERIFY THAT 'VV-B IS RESET, AND 


. WHEN THE DRI 
THAT 'ATA-B I 








; TYPE MESSAGE 24 
;SET THE REGISTER COMPARE ERROR INDICATOR 


BRC AN FAROR OCCUR 
IF sed ON ERROR (SWR9=1) 


ce RE Pe gaara cou 


‘IN EN SINGS TEST MODE ? 


sLEET POR & TO LOCATION FOR TYPEOUT 
ie SE (ORIVE NOT CYCLED DOWN) 
BR IF NOT Set CORIVE NOT CYCLED UP) 


5 o SLFKELASLSALSLAKAALEKLAAASLLAAALEAAHLELERE REALE ESLE LEA ARKAAAAERALERKERELE 
*SET VOLUME VALID FOR BOTH PORTS 


READIN PRESET THROUGH PORT 
READIN PRESET THROUGH PORT A 


Hen TO Peek DEAT ION en cory reour 


POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND ee STATUS BITS IN RHDS1, AS READ THROUGH BOTH 








mA, RPOY QUAL 
T14 


QOoooo0000000 
fn bas hat a oe Bt Bt be be Be ee 


Eason 


016370 

016404 1 eat 

016410 032760 010000 

016416 001374 

016420 104400 023061 

Ol64e4 104400 Oe3e35 
16430 032760 010000 
16436 001774 


eae ne IIIT 


| 
| 





CONTROLL 
TEST ‘CONTR 


000012 


000012 
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Polly sete SWITCH LOCK 


E. JSSue * DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 


F. IFY THAT THE ORIVE coment ACCESSED AND 
* DOES NOT SET WEN CNPTING 5 Recese T RIVE THROUGH 


A. gt 10 se1 SET PORT REQUEST BY WRITING 0’°S 
RHDS1 THROUGH PORT A. 

SUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT THE 
DRIVE REMAINS LOCKED ON PORT B. 


H. CYCLE THE DRIVE DOWN. CHANGE THE *CONTROLLER SELECT’ SWITCH TO 
A/B; CYCLE THE DRIVE UP. 


I. VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE THAT BOTH ATTENTION 
BITS ARE SET, AND THAT BOTH "VV’ BITS ARE RESET 


ULL LE ELA LEA LENE ELLE EDO A 


tsT14 


G. 


COFCO SESS SF SESS SSF GE St Ge Ge Ge eeee oe 
oe ee ee ee ee ee ee ee 


SCOPE sINITIALIZE THE SCOPE HANDLER 
Tst KyBCTL eae ONLY SINGLE TESTS ? 
EPL is. ; be f MUST TEST. cce 

1S: MOV $-1, kYBCTL ; INGLE TEST I wieatoe ee TOR 

es: MOVB #14: 
MOV aTE® ia. ieee He iota ON TEST ADDRESS 
MOV ett, SLPERR LOOP ON ERROR ADDRESS 
MOV $1, STIMES >:D0 1 ITERATION 


j REREERELRELERRAR LAE LAERA RRS E EEE LAER E ELE RE REEL E REAR ARE RL ERLE REEL EE 


SEND OF SCOPE’ SETUP - START OF MAIN TEST 

TEST14: 
MOVE  PORTB,RHCS2(RO) ;SELECT PORT B 
MOV PORTB.P sMOVE PORT ADDRESS TO LOCATION FOR ‘TYPEOUT 
TYPE  ,CYCLED CYCLE DOWN THE DRIVE’ 


. cEELEESELLRESESARSEL SEE FEREPE ELAR SLERREKE RAKES KS LLEFERL EEE SHER ER ERLE REALE 
:WAIT FOR ’MOL’ TO RESET 


1$: BIT #MOL,RHDS1(RO) ;TEST *MOL’ 
;BR IF IT IS STILL SET 
YPE ,SWTCHB 3 SHI CH TO *B’ 
TYPE  ,CYCLEU ;’CYCLE UP THE DRIVE’ 


: o LLSSERELEELEREELSLE REE LRERE SEU EELERESS KEL SLES ERSREREME REELS RRL ELALESE 
“WAIT FOR DRIVE TO CYCLE UP AFTER SWITCH CHANGED 


es: BIT #MOL,RHDSI(RO) ;TEST MOL’ AGAIN 
BEQ es ;8R IF NOT SET 


8 sXESSPESESRRELERSYSL ES ESSEELS ERS ES ERSLESSEEPLELASSSHSRELEES HERE RSE ELSES 
*PRIVE IS CYCLED UP, CHECK STATUS THROUGH PORT B 
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T14 TEST ‘CONTROLLER SELECT’ SI TCA LOCKED ON PORT B 


0012 viet We TEMTE OF moe ERROR’ INDICATOR 
aie RODrESs 0 ERROR MESSAGE 


RH11 BASE BODRE 
ta! BFPO DPR! RY’ SEDO REGISTER SHCULD BE 


a iepeits TO *STMPO’ 
Ete on 
EN Sie BEAN ow rec 


THE REGISTER COMPARE ERROR INDICATOR 


r= be 


B88 S888 Bs 
bee REED AD 


64S: 


: o KSLREREEXERESESERE LER ERREE KEL E SES ELESERE LRA LE LR ESLER EERE LEAR TR ELEES 
>SET VOLUME VALID FOR PORT B 


MOV #11,RHCSI1(RO)  ;ISSUE A DRIVE CLEAR 
MOV #21. RHCS1 (RO? » eer A READIN PRESET 
9 


os 


MOV aFMt22,RHOF(RO) ;SET FMT22 
oESEERLLELESLEERBEE EB SELSXSSSEELSELELERSE KSEE EEE SE KEELE SSERSY SUSAR SSSELE 
“CHECK THE DRIVE STATUS THROUGH PORT A; VERIFY THAT alte’ DOES NOT 
: SET WHEN THE DRIVE IS ACCESSED THROUGH POR 
nove PORTA,RHCS2(RO) -;SELECT PORT A 
HOY PORTA,PTNBR ;MOVE PORT PORT ADORESS f° LOCATION. FOR TYPEQUT 
), SBDDAT sCLEm et 


af OF RHDS1 
a oom REGISTER ADDRESS OF ERROR MESSAGE 


ye a 
ale site 


;COPY "BAD DATA’ 
VOR UIT Goo BATA FOR TYPEOUT 

SET SET THE REGISTER COMPARE ERROR INDICATOR 
“CHECK ERROR® INDICATOR 


e 


S88 888 ss 8 
REE wee 
BeneeeeS 


ee 0 0 0 
— 


BERETS AS AAA AL ASA 


CKERR ; 
RHCS2(RO) , SBDDAT 


ok eel eae SG OF ERROR MESSAGE 


des 
a he 


Se See he 


= 


SOSSen SE guoees 


Be tee eee es 
ea ee er 
ha 


Cod 
oO 
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TEST "CONTROLLER SELECT’ SWITCH LOCKED ON FORT B 


001166 001124 


—O— 
rm 


S88 888 g8 8 
See fea Rin BESERE 





BIS  albapammaeel ;20R’ WITH GOOD DATA FOR TYPEOUT 
3 MESSAGE 23 


ERROR : 
- Con CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
" GR RHDS1 (RO) sTRY TO SET REQUEST BY WRITING THROUGH 


; THE LOCKED OUT PORT (PORT ’A’) 


$ | RERERRAAEL EL KRKLEKKLHARALELELELLLALELAELELLLELELELAL LLL ALLLAELELALE LES 
:VERIFY THAT DRIVE STAYS LOCKED ON PORT B 


MOVB § PORTB,RHCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RHDSI(RO)’ ;T A RELEASE PORT B 
MOV : : OF "LOCKED ON’ PORT 
MOVB — PORTA, (RO) ":SELECT PORT A 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR sCLEAR THE 'CHECK ERROR’ INDICATOR 
MOV RHDS1(RO),S$BDDAT’ GET S 1 
MOV #RHDS1 . SBOADR sF ORM REGIS OF ERROR MESSAGE 
oR $GHDA * WHAT RECIETER SADUL BE 
ee OUMGPASPPDO STMPO hontE SOPCIFIED OIG OT MrO 
Pd: willie ia eda 
MOV SBDDAT,STMPY COPY ’BAD DATA’ 
BIC 8177700,STMP4  :CLEAR THE MASKED BITS 
BIS STMPY,SCDDAT  3°OR’ WITH GOOD DATA FOR TYPEOUT 
ERROR 24 >TYPE MESSAGE 24 
ae CoH CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
TSTB  SERFLG sDI0 AN ERROR OCCUR 
BEQ 3$ BR IF NOT 
BIT #SW09, SWR *SEE IF LOOP ON ERROR (SWR9=1) 
BEQ 3$ BR IF NOT 
CLRB = SERFLG CLEAR THE ERROR FLAG 
CLR STIMES “CLEAR THE MAX ITERATION COUNT 
INP RR GO TO THE LOOP ADDRESS 
3S: BIT #SW14, SWR *LOOP ON TEST ? 
Reh et 0 Gaur 
T + STEEN *SWITCH TO A/B’ 
TYPE CYCLEU >*CYCLE THE DRIVE UP’ 
MOVE § PORTB,RHCS2(RO) *: T PORT 
PORTB,PTNBR ; MOVE epoRese TO LOCATION FOR TYPEOUT 


MOV : 

4g: IT NOL , RHDS1 (RO) sCHECK *MOL’ 

SS: BIT #MOL,RHDSI(RO) $CHECK *MOL 
Q cs BR 


fg RHRARRERELELAALELL RLS LEAL ALLLLELALLELRLLERALLLLLELELLALARLAEAERAELEEE 
SET VOLUME VALID FOR BOTH PORTS 
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T14 TEST ’CONTROLLER SELECT’ SWITCH L nN PORT B 
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ss 
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MOV #11, RHCS1(RO) i] ISSUE A DRIVE CLEAR THROUGH PORT B 
MOV #21;RHCSI(RO)  sISSUE A READIN PRESET THROUGH PORT B 
MOV #13, RHCSL (RO), , FRELEASE PORT PORT 8 
Hove Ponta Bac PTNBR i. SEE pone 4 TO LOCATION FOR TYPEOUT 
MOV 1,RACS1 NeRo)? ; ISSUE a ROR TR PRE THROUGH PORTA 
MOV #FMt22. RHOF (RO) ) ;SET FuTee 
MOV #13,RHCSI(RO)  :RELEASE PORT 

6S: IMP SEOP GO TO THE ENO OF PASS ROUTINE 


fp RERRELARELE LAE ELLESLAERLLE LEER ALLEL RRLLLLLRALLALLE RELL RLLE RELA RELA EES 


-SBTTL ##% SUBROUTINES #2% 
eet t titi iii iiieiiiiiirer iPS Teeter Pret irr roet err reeee re reee eerie ef 


;ROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 








CKCLK: MOV BCKCLK1, QKERRVEC ;SET UP VECTOR FOR CLOCK CHECK 
CLR DSERRVEC+2 PSW 
ae Sy att des 
MOV ahtcay 1e t UP KW11-P VE eR 
MOV #300, (R1) ;PSW PRI 6 
MOV #-1, aSLKCSB LOAO COUNTER BUFFER WITH 1°S 
HOV Hs, CSR  ;SET CLOCK - CNT UP, 16MS, CONT INT 
CKCLK1: ADD #4, SP sRESTORE THE STACK POINTER 
HOV SACL2, QHERRVEC | CH ERROR VECTOR TO CHECK FOR KW11-L 
TST KW11-L 
MOV SLLVEC,R1 ring VECTOR ADDRESS 
MOV scLOCk (RL)+ Kul -L VECTOR 
MOV , (RL) 
HOV #100, Cet Kit oL INTERRUPT 
CKCLK2: ADD #4, SP RESTORE THE STACK POINTER 
ADD #2' (SP) * INCREMENT RETURN, NO CLOCK 
CKCLK3: HOV 86, SHERRVEC *RESTORE THE ERROR VECT 
;ROUTINE TO COUNT CLOCK TICKS 
CLOCK: ADD #17. , TIME sA00 17 MS TO ELAPSED TINE COUNTER 
ist MATCH s15 We tt ALREADY ZERO ? 
Sua #17. ,WATCH ef 3 MS FROM WATCH DOG COUNTER 
BPL 15 BR” IF NOT TINS 
cLR WATCH sCLERR WATCH DOG COUNTER 
1S: RTI 


;ROUTINE TO CALCULATE + 25% TIME TOLERANCE VALUES 


TOLER: TST -(SP) ; ROOM ON THE STACK 
MOV 2(5P), (SP : TACK 
MOV aC (RSD4 (SP) “GET TIME VALUE 





GRRE | 


WWW 


eee ee vaya y SSRIS SSIS SAIS Ne ea Se 


PRPASR ANN SR SESE SRST Eth tana 


Qe Pa Ban fee Fn Gent Bt het fe ho as foe fiw foe (hat hina fee ft <0 pone Pt ee Pn Bn fs Pm a hoe Be hs Ps Bs 
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011666 000004 MOV (SP) ,4(SP) ;MOVE TIME VALUE 
16 ASR (SP) ibIV 10s BY § 
1 ASR (SP) Vv AGAIN (FOR A Tore OF 4) 
000002 ADD (SP)+,2(SP) ;CALCULATE UPPER LIMIT FOR TIME 
RTS RS sRETURN WITH TOLERANCES ON THE STACK 


3 JHB HHHEH HEH THBHHHEHHHHEHHHEEH HEHEHE EERE EEE 
-SBTTL *SYSMAC’ UTILITY ROUTINES 
3 JHHHHHHHHHEHHHBHEEHBEHHEEHB HEHE HHHEHHHE HHH HEHEHE 
7) JEHHEHHIHBEHHE HEHEHE HEHEHE HEHEHE EEE EEE 

-SBTTL END OF PASS ROUTINE 

;#INCREMENT THE PASS NUMBER (SPASS) 
; #INDICATE ee aoe AFTER 1 PASSES THRU THE PROGRAM 

;*#TYPE “END ye (WHERE XXXXX IS A DECIMAL NUMBER) 


;#IF THERES A RONTTOR 60 GO TO IT 
;#IF THERE ISN’T JUMP TO TSTIAA 


SEOP: 
ooc004 SCOPE 
005737 001260 TST KYBCTL sENTERED TEST VIA KEYBOARD COMMAND ? 
a ae xP EE TiRN 70 CONTROL 
rie cage CLR *+ ZERO THE CP OTMBER +t: 
005037 901170 CLR STINES $$ ZERO THE NUMBER OF ITERATIONS 
2737 100000 001100 BIC $ OGG00, SPASS FONT. A OW A NE ce NUMBER 
4 ; seaealie DEC (PC)+ + LOOP? 
rl * BGT SDOAGN YES 
012737 ‘ MOV (PC)+,a(PC)+ > RESTORE COUNTER 
oie ~ ee 
i 17742 YPE SENDMG TYPE “END Pass te 
13746 001100 MOV $PASS, -(SP) >;SAVE SPASS F' 
104410 a. TyeDs 3 360 G9 vee Deca, ect WITH SIGN 
o13700 cB Shapes SGETY2: HOV ihc, bi ore HONTTOR RODRESS 
2700 017726 cH #SENDAD, RO #15 RON TOR T11? 
is 977 some aL MAE WPS 
000005 RESET He 
7 SENDAD: PC, (RO) 0 Toke 
Bpaeid of: Ftp Be iat 
000240 NOP boo at 
b00137 y AGN: JMP asTSTIAA ; ;RETURN 
15 105 020104 SENDMG: .ASCIZ <15><12>/END PASS #/ 
oH05e0 051523 021440 
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DERPQA.P11 END OF PASS ROUTINE 
at 017757 377 377 O00 SENULL: .BYTE NULL CHARACTER STRING 









SEN: BYTE adnate annnnnnnh deeb RATER, STRING, coeae 



















3253 -SBTTL SCOPE HANDLER ROUTINE 
;#THIS ING OF SUBTE T WILL INCREMENT 
= BBWS SBS Aaa Si Tal DERE. 0» 
fe: L THE ERROR DISPLAY 1 AYCAS 
*#THE SWITCH Tone P 1b rete ty a Rol 
*SWI4=1 LOOP ON TES 
3260 s#SW11=1 INHIBIT ITERATIONS 
seb] 3; CALL 
te SCOPE ;;SCOPE=IOT 
: SSCOPE: 
3265 - 006137 177570 asSWR 3 ;LOOP_ ON. PRESENT TEST? 
36p6 sensi OF cOte F FOR THE XOR 33 Reade 
=) an ee ee a Ree it 
3553 013746 MOV DHERRVEC, -(SP) ius yh its jer OF THE ERROR VECTOR 
3271 012737 020016 op0004 MOV #5S,d8ERRVEC  3:SET FOR TIME 
177060 TST 28177060 TIME OUT ae COR 
000004 Ho (SF )+ ,JWERRVEC He S10 THE ERROR VECTOR 
3275 022626 cs: CHP (SP)+, (SP)+ CLEAR THE STACK AFTER A TIME OUT 
3276 012637 OO00004 (SP)+,O8ERRVEC ;:RESTORE THE ERROR 
000436 LOOP ON THE PRESENT TEST 
nt 6S:; mnie OF CODE FOR THE XOR’ TESTERSssus 
020 105737 001103 2s: TST SERFLG 3;HAS AN ERROR OCCURRED? 
001404 3$ 3;BR_IF_NO 
328 105037 001103 4S: LG 3;ZERO THE ERROR FLAG 
3oR2 005037 001170 etRe STIMES CLEAR THE NUMBER OF ITERATIONS TO MAKE 
3283 032737 177570 3S: BIT #B1T11,a8SWR § ;;INHIBIT ITERATIONS? 
3284 00101 :BR IF YES 
3285 Bose 001100 TS SPASS 2 IF FIRST PASS OF PROGRAM 
328] 0 001 BEQ 18 +3 NATE T ITERATIONS 
3287 001104 INC $I +: INCREMENT treat ON COUNT 
3288 001170 001104 CMP STIMES,SICNT | 3;CHECK THE NUMBER OF ITERATIONS MADE 
020074 1 BGE R >:BR IF MORE ITERATION REQUIRED 
020076 O01 900001 001104 1S: MOV #1, SICNT > REINITIAL ITERATION COUNTER 
1 020104 O1 136 001170 MOV SMXCNT,STIMES  3;SE ITERATIONS TO DO 
3292 O201l2 105237 001102 SSVLAD: INCB $TSTNM COUNT TEST NUMBERS 
3293 D201 Ib 11637 001106 MOV ($P) SLPADR i358 SCOPE LOOP ADDRESS 
323% O20! 1 001102 177570 SOVER: MOV STSTAM, JHDISPLAY ; DISPLAY TEST NUMBER 
3295 020130 013716 001106 MOV SLPADR, (SP) s FUDGE RETURN ADDRESS 
3% 120134 oo00002 RTI 3 $F IXES PS 
020136 O00004 SMXCNT: 4 *MAX. NUMBER OF ITERATIONS 
4 EEE 
$300 .SBTTL ERROR HANDLER ROUTINE 
3202 s#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
3303 ; #SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
3304 *#AND GO TO SERRTYP ON ERROR 
3305 THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 








3 
2 
;. 


“uo 


eas 


SERRE 


Tt 


siaiataasaiaia 


WONMuUI£CturT 
fast Gat fre pe Pe bee Pe ae Bee 


Se 
Paes eescseocess 


3 


PRU UUR ROU MM esse a toes coaeROER 





— bes ee 
5 oo 


ee 
02 ome Ge 
oe 
or 


te 


a8 


001201 


$3700 001114 


001116 


001266 
0e0326 


001201 
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ERROR HANDLER ROUTINE x hd ager an 


; #SW1S=1 HALT ON ERROR 
; #SW13= INHIBIT ERROR TYPEOUTS 
; He BELL ON ERROR 
* ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
MOVB $TSTNM, TSTNUM 
7$: INCB SERFLG’ i5ET, {HE ERROR FLAG 
BEQ 7$ ;DON’T LET THE FLAG GO TO ZERO 


MOV STSTNM, QSDISPLAY ; DISPLAY TEST NUMBER AND ERROR FLAG 
BIT pte 10, J#SWR j SBELL ERROR? 


Q 
ARE 5 RING BELL 

1S: INC SERTTL oc *:COUNT THE NUMBER OF ERRORS 
HOV ( SP), SERR *:GET ADDRESS OF ERROR INSTRUCTION 
MOVB ;STRIP_AND SAVE THE ERROR ITEM CODE 


JSERRPC, SITEMB 
BIT #81713, deSWR texTp TYPEOUT IF SET 
aoe PC, J#SERRTYP $530 To UGER ERROR ROUTINE 
TYPE SCRLF 


2s: TST daSWR ;;HALT ON ERROR 
BPL 3$ SKIP IF CONTINUE 
HALT ;;HALT ON ERROR! 


38: 
TI : sRETURN 
s RARE KKRALKELEAKLLALARKKKE PEETESTTTTILTSTITTTTT TTT TTT TT TT TTT TT TTT Ty 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


UE OCS DS Oa OE SP LE Bl 
AND REPORTS Fhe ROPRIATE INFORMATION CONCERNING THE ERROR. , 


SERATYP: 


TYPE SCRLF ;"CARRIAGE RETURN” & “LINE FEED" 
MOV RO, -(SP) 3 0 
CLR = RO PICKUP THE ITEM INDEX 


Bee Feet Tere, AO TE ATEN NER 15. ZERO, yusT 


MOV SERRPC, -(SP) 33 SAVE SERRPC FOR TYPEOUT 
;ERROR ADDRESS 


TYPOC $30 TYPE--OCTAL ASCIIC(ALL DIGITS) 

1$ BE ifs AS THE NOEX § $0. 7H THAT IT WILL 
: ASL ff rf WORK FORT On taBte 

ASL RO 

Bb REERRTB RO - FORM 

MOV (RO)+, 28 ter RRUP TERROR Nese POINTER 

BEQ 3$ ti Ske TYPEQUT IF 5 Ae INTER 

TYPE “TYPE THE “ERROR MESSAGE™ 
2S: .WORD 0 ERROR A MESSAGE” POINTER GOES HERE 


TYPE , SCRLF 3;"CARRIAGE RETURN” & “LINE FEED” 
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ERROR MESSAGE TYPEOUT ROUTINE 


and 020344 3$: MOV {00,8 


Nf 
4S: WO ibe, 
04400 001201 TYPE . ,SCF~ 


-(cD) 


l 
FO)+, Rl 


: 


CARRIAGE RETURN" ‘i “LINE FEED” 


y 

i SAVE Ri 

PICKUP “DATA TABLE” POINTER 
:3BR IF_NO DATA TO BE TYPED 

;F2 "'° “DATA FORMAT” POINTER 
: “DECIMAL” 

ii 
3 








es 
3366 020246 
3372 020364 00 IF ECINAL 
3303 De0366 013146 (R1)+, =(SP) VE 3(R1)+ FOR TYPEOUT 
i TYPOC TYPE=-OCTAL ASCII(ALL DIGITS) 
| 3375 020372 - 8$ 

3378 pen Sod 013146 : MOV Q(R1)+,-(SP) 5 ;SAVE 9(R1)+ FOR TYPEOUT 
3378 020376 104410 TYPDS GO TYPE--DECIMAL ASCII WITH SIGN 

- 3379 Oe0400 8S: TST (R1) He THERE ANOTHER NUMBER? 
3380 Geos 0014 a BEQ 9$ "BR IF NO 

1 104400 o20424 - TYPE 11$ it TYPE TWO(2) SPACES 
3382 O20410 000764 BR 6 ; :LOOP 
336 a4 020412 012601 QS: MOV (SP)+,R1 ;;RESTORE R1 
3285 O20414 012600 i0$: MOV (SP)+’RO : RESTORE RO 
3386 O20416 104400 001201 TYPE SCRLF > "CARRIAGE RETURN” & “LINE FEED” 
3387 OeD422e 000207 RTS PC .: 
3388 O20424 be0o49 000 11S: -ASCIZ Ye = TWO(2) SPACES 
330 5 PoETTTETESTECTTOTETEST TTT TTT TTT TTT TT TTT TTT TT TTT TTT TTT TTT TT TTT 
3392 -SBTTL TYPE ROUTINE 
333 i ;#ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
3395 ¥THE ROUTINE WILL INSERT” A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
33% teNOT El: SNULL CON TAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
3397 TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
3398 ENOTES: SFILLC RON TAINS THE CHARACTER TO FILL AFTER. 
3400 *¥CALL: 
3401 #1) USING A TRAP INSTRUCTION 
3402 3% TYPE ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
3403 + TYPE 
3405 is MESADR 
3407 42) USING A JSR INSTRUCTION 
3408 MOV PS,-(SP) sPUSH PROCESSOR STATUS WORD ON THE STACK 
iF JSR PC, STHPE “CALL TYPE ROUTINE 

Sui8 1 & MESADDR *:FIRST ADRESS OF MESSAGE 







020430 1 aS 001151 $TYPE: TSTB S$TPFLG S THERE A TERMINAL? 
02 B 1$ ;BR IF YES 


ei, HERE IF NO TERMINAL 
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uieseds tess aren tots ts 


SIasReRReERTBowUN 


te ee ee ee ee en ee te ee ne mene a eee te ete nce tame en ars ena eg em 
‘ 


; 
{ 


s* 


Pll TYPE ROUTINE 


112046 2s: MUVB (RO)+,-(SP) + BSH CHARACTER TO BE TYPED ONTO STACK 
ri 33 pe oF IT ISN'T THE TERMINATOR 
S$ (SP)+ tae ERMINATOR POP IT OFF THE STACK 


ae ocoose 3S: eo Hy eafe + AE SuST RETURN PC 
4 RT ;: RETURN 


737 20520 4$: JSR STYPEC $160 TYPE THIS apa 

OeG47e 1e37e6 001150 S$: C stoic, (SPs 315 IT TIME FOR F oe CHARS. ? 
Gevsoe 13746 RV ile "s OP FILLER cas 

13746 O01146 MOV SNULL ,-‘SP) T 8 OFF CHARS. "NEEDED 

see ‘Vy NULL CHAR. 
nae 10306 000001 &$: CBS s«AAC SP) 3;D0ES A NULL NEED TO BE TYPED? 
1 T S$ 3;8R IF NO--GO POP THE NULL OFF OF STACK 
Oe0Si2 004737 O20S20 J PC, STYPEC 3360 TYPE A NULL 
Ge0een | 108777 1 thal 
1 160416 STYPEC: TSTB @STPS WAIT UNTIL PRINTER IS READY 

O20Se4 100375 BPL TYPEC 
pshece Lib67e oo0cd2 160410 vB (SP), a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 


5 AREA ge A EE AER BA AEA EE DR EE 
~SBTTL BINARY TO OCTAL (ASCII) AND TYPE i 
Bema s TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


AND TYPE IT. 
TER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
—_— 4» NUM, -(SP) ;;NUMBER TO BE TYPED 
3 FOR TYPEOUT 
++ “BITE N INE] TO & FOR NUMBER OF DIGITS TO TYPE 
;# M 33M=1 OR 0 
- ;# 3; 1=TYPE LEADING ZEROS 
i *:Q=SUPPRESS LEADING ZEROS 
;#STYPON-==-ENTER HERE TO TYPE OUT WITH THE SANE PARAMETERS AS THE LAST 
;#$TYPOS OR STYPOC 
:# =| COMOV NUM, -(SP) ;;NUMBER TO BE TYPED 
e TYPON 3;CALL FOR TYPEOUT 
#STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
ae MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
3% TYPOC CALL FOR TYPEOUT 
017646 po0000 STYPOS: MOV 3(SP),-(SP) 3;PI THE MODE 
tt Ge07es satin MOVE GPoa RONDE +, RUNBERCOF DISTTE To TYPE 
tee7i6 00 : (SP) 3;ADJUST RETURN Ss 
il 1 1 STYPOC: MOVB 81, SOFI 33 T THE ZERO FILL SHITC 
il Hove : +} 23ST F SIX(6) IGITS 
1 STYPON: : + 35ET THe TI T 
1 MOV R3,-(SP) 9° M3 
10446 MOV RY, -(5P) HH RY 
O10S46 MOV RS, -(5P) > ;SAVE RS 








PR PA PP ] 
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DERPGA.P11 BINARY TO OCTAL (ASCII) AND TY 


ae 2 020763 uve SOMODE+1,R4 GET THE NUMEER OF DIGITS TO TYPE 
A een tine Sone ly BS «= EBS Ad OE Len 
23 1 Bear) Hove SOFILL, RY ery THE ZERO FILL SWITCH 
7 : ; OR Re EER THE OUTPUT WORDS 
| ees Pores ipteae ie 
3183 i 2s: ROL Re FORM THIS DIGIT 
r ROL 
= 013 Ay ORE, 
1 3$ ROL R3 ;GET LSB OF THIS DIGIT 
) Hpeeig OnO7ee Bere $ghtone SORE NO 
177770 BIC 8177770,R3 s3G61 RID OF JUNK 
1 1 BNE 4§ 33 TEST FOR 
cas aot ee TEES 
3494 020703 4g; INC RY :;DON’T SUPPRESS ANYMORE 0°S 
Be tee fees Bc, HIE BE PU ates 
we il SOOoee MOVB R2,8S 33 F ING 
a tere HED Hees, RES air edu Ofer 
3500 003347 pet $0 ::BR if ORE TS DO 
201 coesde T cs °:BR IF DONE 
rR DO THE Lact olci? | OOM 
=e ees 6S: MOV (SP)+,RS + RESTORE RS 
3505 12604 MOV (SP)+/R4 2 RESTORE RY 
308 020742 012603 MOV (5P)+°R3 > :RESTORE R3 
benres 16665 o00002 op0c04 MOV 2(SP)/4(SP) :3;SET THE STACK FOR RETURNING 
2 020754 BosboS RTT ease 
210 020756 000 8S: -BYTE 0 $38 FORAGE FOR ASCII DIGIT 
1l 020757 000 : 5 i TERMINATOR FOR TYPE ROUTINE 
le 020760 000 SOCNT: . + OCTAL bIGIT COUNTER 
S13 PSereS ont SonOpE: “HORS OB TENDER OF BIGITS TO TYPE 
is 3H HHHHHH HEH HHBHHBHBHIE HHH HHH HBHHBEHHEH HEHE 
217 -SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
3519 


;#THIS ROUTINE IS TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 
;*SIGNED DECIMAL ( He NUMBER AND REE rf DEPENDING ON WHETHER THE 
; NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 





3520 
ses see Ppsir ive IT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
a + SREPLAGED Girth ePAces. ; 

3625 :* © «MOV NUM, -(SP) ;;PUT_ THE BINARY NUMBER ON THE STACK 
2 3 TYPDS 2:60 TO THE ROUTINE 

020764 STYPDS: 
2529 020764 O1004E MOV RO, -(EP) :;PUSH RO ON STACK 
[PRE aera 





DO6 


MACYLI 27(732) 


NE 
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ft 


RPOY QUAL CONTROLLER LOGIC TEST = PART 
Se BINARY TO DECIMAL AND TYPE ROU 


1 aT 


Rito 
a ReoRee 


a00000— 


a8 


=e 

a 
_— - 2 
‘ie, «OF CUCU 
ep .iba fee oF 
Peseees g Se ESSE S i Sbeaedl, 
oe : - ee ae at 
me Pe ae 
ee ee 

z 5 g = 

a @* o = + y _ he, 
= ae v 2022 oy ees 
of aeaarancontntigtS, ie Smale Ona nRA 


tid 


S-es8c 


PTS SUS S7e Sree we De bos nes saaaset ese 


a ee & & 
Soe escent eee eee ee 


SSH SLL SRM G Baik RE BESS= AURA RST S PRN RECEER 


te ham tien bet het het bat been be ete bee, heen, ate hain ae ame bean eam het bam, haan awn bees haan bees barn bam bam bean Kamm bam am bem vem, bee been, ee bat nem, beam beta pate, bam bam ae) 


A 
SHSSSSSSSSSYSSSSSSSSHSSSISSISSISSSSSSSSSEsssss 


6$ 

7$ 

8s 
177776 

9S: 

$0 

SOBLK: 


ooooss 
1200 
1170 
000001 177777 


ae ee 


SOB cout 


- SBTiL. 


TTY INPUT ROUTINE 


dihCnbnehonsiehennhOaiRntnRnRncanRnRanRNen 
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TTY INPUT ROUTINE 


j THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


DEAE EE HPT HET 


TSTB 
BPL 


ooooge2 
0000s NOVB TKB,4(SP) -S $READ T 
BIC #1C<177>,4(SP) 33GET RID oF JUNK IF ANY 
: PTT TTT TTT TTT TT TTT TTT TTT TT TT i ttet ttt ttt ttttt titi ttt ttt ttt TT 
*#THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


) RETURN HERE ce Be ee AARETER WILL 
TP RNTRBTOR WILL BE A BYTE OF ALL 


RRRRRRR 
Eves 


BE ON THE STACK 
0’S 


R3 
-(§P) 
ae R3 ee 
astTy NS7,R3 33 FULL? 

;;BR IF YES 

5380 TER FROM THE TTY 
(SP)+, (R3) 33GET 
177, tr3) 3:1S IT A RUBOUT 


ee F NO 
(SP) Hs Tha THE FIRST RUBOUT? 
#’\,9S *: TYPE A BACK SLASH 


95 
$-1, (SP) 3;SET THE RUBOUT KEY 
He BY ONE 


, SSTTYIN >3STACK EMPTY? 
33BR_IF YES 
ss SETUP TO TYPEQUT THE DELETED CHAR. 
360 READ ANOTHER CHAR. 
tt BR TF NO : 


33TYPE A BACK SLASH 


a3 


2B 
a 
a 
Q 
e 
= 
a 


1 
1 
1 
1 
1 
1 
1 
1 
1 


tattatat ay 
dap ee 
NRE 
mo 
WtuIrTu 


NOW £WlueH 
a 


% 
% 
% 
% 
= 
x 
x 


Re 
8 


RERRARRRAS 


= 
¥f,1 


SS 


= 
—_ 
io 


-— 

Oo 

es 
Ge) 


Snes 

RRR RRRRRRRRR RRR RR RRRRERRRRRRRRRRRE 
SSA SIP ERART REAM INE ERSTE R ERAS 

Boge Rye gaNAB EMRE LS ANSI aS 


F 
STTYIN 
2s 


3 
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Pll TTY INPUT ROUTINE 





14 001200 ug: TYPE 5 TYPE A ’?? 
Sed oa Oe 
rae t nati ; T a : * 
1434 122723 000015 CMPB 3s S, (R34 
eae usr 177777 elke “tga ie ai (THE 15) 
ate tos7e8 TST tSb5s He OPE at Ne keY FROM THE STACK 
1 1 MOV (5P)+,R3 > ;RESTORE 
21458 ll NOV (SP), -(SP) s:AOIUST T yack AND PUT ADDRESS OF THE 
rst 1 po0004 00002 MOV 4(SP} 2(SP) ASCII CHARACTER ON IT 
051466 012766 021505 000004 MOV aSTTYIN, 4(SP) 
1474 RTI Tu 
rate Qg: -BYTE : ORAGE FOR ASCII CHAR. TO TYPE 
ate 052536 905015 000 SCNTLU: :ASCIZ /#U/<15><12> $5 TERMINATOR 
021505 000007 STTYIN: .BLKB. 7 += RE 7 BYTES FOR TTY INPUT 





5 HH 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 
;#THIS ROTTS Hie READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


S#CHANGE I 
Se ee te ae HARTER 1S. READ oe ite BE TYPED 






HETEN NLT IS RRINETED BY BY TYPING A CORR RRTAGE MRETURN, 
; i RDOCT ; ;READ 
: RETURN HERE IEOH ORDER OTs Are TOP OF THE STACK 
S14 O11646 SRDOCT: MOV (SP), -(SP) ;;PROVIDE SPACE FOR THE 
& Ol oo0ce4 00002 MOV 4(SP}_2(SP) He NPUT 
mie ts me) ine a aes 
B gis thas i Fitna he 
= b12600 conn , HOV {SP)+,RO igo ae OF 1ST CHARACTER 
ooe00 ® 55 BND Ae 
ec : 2s cf Re -(SP) CKUP . ea 
7428 BEQ , 231 i? 


MAKE SURE THIS CHARACTER 
331S AN OCTAL DIGIT 

4§ 

Rl 3;#2 

Re 

Ri 33%4 

Re 

Re 358 

;;STRIP THE ASCII JUNK 


ee ee ee ee ee eB de 


RESINSRRERGEF Pen OROON 
3 
E 


ZBRBRBEGE 


MO ad 





1 
st 
042716 177770 


wo 
| ml 
Oo 
= 
ra 
a“ 
- 
w 
wo 
“ee 








B 
ooo 
Se 
£ruo 


SAA AAAS 


JaRERORES 


Beereganes 


GB 2 Fh bs fe pm phe 


N“ 
= 
oOo 


PREREP EES TEE EPONA NAO ARAMA NAN GDI eects Sirs e 
- RBRERERRRRRAR 


BEES tL TRC EE LOGI Tet TYP ART © MACYdI nage 


1606 06260! 


WSU 


ane 


Ss 


000012 
0216S2 


001208 








AUD (SP)+,R1 s;ADD_IN THIS DIGIT 
a ibe, Ee erg rtm so 

MOV Re, SuI0cT ag 

my feces ip STE Ho 

HOV (8p)! HPoe STACK INTO FO 
4S: TS (SP)+ 35 CLERN PARTIAL FROM STACK 

CLRB = (RO) :SET A TERMINATOR 
cs ho 9 ;sTYPE UP THRU THE BAD CHAR. 

: TYPE SQUES 3372" “CR” & “LE™ 
$ -33 TRY AGAIN 
He BITS GO HERE 


SHIOCT: .WORD 
ertttiitiititiittitiiiititiiiititititertittirtiititttit titi itis 


-SBTTL SAVE AND RESTORE RO-RS ROUTINES 


;#SAVE RO-RS 

3% SAVREG 

j HUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 

; ¥TOP=-=(+16) 

3% +2---(+18) 

g% +4-—--R5 

3% +6---R4Y 

tEelO-—-Re 

3#+12---R 1 

3#+14---RO 

SSAVREG: Ay ag. =p) “PUSH RO ON STACK 
MOV R1,-(5P) : Art Ri on oT ACK 
MOV Ra’ =( SP) + PUGH RG ON STAK 
MOV fia? =(ep) yt RY On eTAck 
NOV Batse} csp) enue BS OF RAIN FLOM 
HOY 5518p)" ep) tt SVE PC OF HAIN FLOW 
MOV g5( an) (ze) 3;SAVE PS 4 CALL 
Hoy 22(5P);-(SP) 33SAVE PC OF CALL 

s#RESTORE RO-RS 

*#  RESREG 

SRESREG: 





Ce te a ee 
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a2az09 
a 


fF bo ps pe 


“vo 
RR & 


- = 
RRB 


ot Sat et 


RARE 


wo 


<= 


2201 
D2eNee 
2 e0 SL 


Per EF EEEEER ERE SEES SS 2° BEEREBREER ESP EEEEEE TESTE BE 








SAVE 








021770 


CONTROLLER LOGIC 
RESTORE RO-RS ROUTINES 
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MOV (SP)+,R4 3;POP STACK INTO RY 
mY eee fib SUR IO 
NO (2e}3' Bi + Bop TACK into RI 

(SP)+,RO >:POP STACK INTO RO 


RTI 
| HSHEHHHHHEHBHHHHHHHEHHHEHHEHHHEHHHHHHHHE HEHEHE HEE 
-SBTTL TRAP DECODER 


#AND NDEX 
;*#OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED 
;#G0 TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) ;;SAVE_RO 
2($P),RO 53GET TRAP ss 
TST -(RO) $3 UP BY 
MOVB (RO), RO *:GET RIGHT BYTE OF TRAP 
V STRPAD(RO),RO 3; INDEX TO TABLE 
RTS RO GO TO ROUTINE 


-SBTTL TRAP TABLE 


;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;#BY THE “TRAP” INSTRUCTION. 


: ROUTINE 
$TRPAD: 
T SMS YPSC — TRAPSEUTDNURE) TYPE OC ToL. NOGSER WITH LEADING ZEROS) 
ST ypoe :CALL=TYPOS Thepsactosupa) TYPE OCTAL NUMBER {ND LEADING ZEROS) 
STYPON >:CALL=TYPON  TRAP+6(104406) TYPE OCTAL NUMBER (AS PER LAST CALL) 
*:CALL=TYPDS § TRAP+10( 104410) DECIMAL NUMBER (WITH SIGN) 
SROCHR ;;CALL=RDCHR § TRAP+12(104412) TTY TYPEIN CHARACTER ROUTINE 
N 33CALL N TRAPS 4C1OHNT4) TTY TYPEIN STRING ROUTINE 
T 33 T  TRAP+I6(104416) READ AN OCTAL NUMBER FROM TTY 
SSAVREG ;;CALL G TRAP 04420) SAVE RO-RS ROUTINE 


; CALL=SAVRE +20(1 
SRESREG ;;CALL=RESREG  TRAP+c2e( 104422) RESTORE RO-RS ROUTINE 
3 JHHHEHBHHHHHEHHGHHEHHBHE HEHEHE HHH HHEEHHEEHHEHHEEEHEEE 


-SBTTL TELETYPE MESSAGES 
3) JHBHHHHHEHHHHHHBHHHHHEHEHHEHHEHEHEHHEHEHHEEHEHHEHHE HEE HEHHEEHHEEHEHE 


TITLE: .ASCII <15><12>/MAINDEC-11-DERPQ-A/<15>< 12>< 12 


-ASCIZ 







/RPOY DUAL CONTROLLER LOGIC TEST - PART 2/<15><12><1e> 












= 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


: 
: 
SY 
i 
i 


aH 
Oeee04 0511 
a 


: 
2 
Gee 
Oe2 
Ose 


DERPQA 
210 
ze 
zi 
zie 
a 
Pe 
= 
= 
sacs 
3830 
E 
3837 
=e 
= 
2 
: 
= 
3865 





a 
= 


SER 
R 
=~ 
-“ 

Raw— 





e524 
O40 
006462 
0S2116 


042104 
72 


oe 
22 


vwMEH Orne 
NOLshes = 
W—NOWenN WI 


aR 
BS 


Nel 


R nis 
i T 
R Be 


z8 


br ti. 
Bs 4 


ENTERA: .ASCIZ 
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TELETYPE MESSAGES” 3 


(15><12>/ENTER DRIVE ADDRESS: / 


ADRERR: .ASCIZ /INVALID ADDRESS/<15><12> 


PORTAIS: .ASCIZ <15><12>/PORT A ADDRESS IS: / 


PORTBIS 


NOCLOCK: 


NTRH11: 





: .ASCIZ <15><12>/PORT B ADDRESS IS: / 


-ASCIZ 


. ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ <15><12>/SYSTEM MUST HAVE °L’ OR ’P’ CLOCK/<15><12><12> 


(12>/ENTER TEST #: / 


/INVALID TEST NUMBER/<15>< 12> 


€15)<12><12>/THE PRESENT ADDRESS OF THE RH11 (RHCS1) IS: / 


(12>/ENTER NEW RH11 ADDRESS: / 


¢15><12>/THE RH11 DID NOT RESPOND WHEN RHWC ACCESSED AT ADDR: / 
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JO6 
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PART 2 MACY11 27(732) 


DUAL CONTROLLER LOGIC TEST - 


RPO4 
TELETYPE MESSAGES 


; 


~ 
a. 
: 


€15><12>/PROGRAM WILL LOOP WAITING FOR ’MOL’ TO SET FRCM PORT / 
¢15><12><12>SRETURN *CONTROLLER SELECT’ SWITCH ON DRIVE TO ’A/B’d 


€15><12><12>/TURN ’CONTROLLER SELECT’ SWITCH ON DRIVE TO °B’/ 


«ASCII ¢15><12><12>/PRESS 'STANDBY’ ON DRIVE/ 


-ASCIZ 
-ASCIZ 


CHB: 


STANDBY: 


5 
5 = 
is GaleSacg Caceres aeteas Meaveas 


pau Rigis 


042104 035122 


¢15><12>/THEN PRESS ’CONT’ ON THE PROCESSOR/<15>< 12> 


ONTUE: .ASCIZ 


ha td CYCLED: .ASCIZ <15><12><12>/STOP THE DRIVE/ 


oO 
ae 
Sauk 
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/ORIVE NOT IN NEUTRAL AFTER TIMEOUT - REQUEST NOT SET/ 


“REGISTER CONTENTS WRCING AFTER RELEASE OR TIMEOUT/ 


/ORIVE IN NEUTRAL AFTER RELEASE - REQUEST SET/ 


/REGISTER WRONG AFTER RELEASE WITH REQUEST SET/ 











3 


- D> 
~ 
3 e Q — = ~w 
. S 3 © 2 x 
z= a 
8 2 5 a S a S 
i w is] - aA = 
- ag - wm [Fv] 
2 . aes 
S td 82 =] 7 se ~~ SE 
? & 5, 3 e & S s & 
2 = = i rie oF 
i. 2 "4 Y ae 2 
Mg & i 
of & & & & &£ is 
ba] ¥ 
we SB Ss ee ced Se a 
ee 
= th th ir BO te 
Z me " = ~ e ~ 
. “ ~ “ “N ~ ~ 
ma] 
3 m 3 nS =e 8 F 
z fs Z ee 





RPOY QUAL CONTROLLER LOGIC TEST - PART: 


TEST ERROR MESSAGES 


2g Gir 


i ie 
eee PATER | 


ore ene en 





oo 
Pll 








eee om me ee ie ee ne enn ee ee ee ne 








14:30 PAGE 82 
LOCKED SWITCHED T0/<15><1e> 
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DET = DOOOND aeue 
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